Startseite Inhaltsverzeichnis Nutzungsbedingungen Datenschutz Impressum Weitere Informationen

CODE-SCHNIPSEL

Individuelle Formel: ZAEHLENWENNZEICHEANPOSI

VBA und Makros • Codeschnipsel • Arbeitsblatt • Zeichen • Position • UDF • Anzahl

Ausgangslage ... Was tut der Codeschnipsel?

Immer wieder nützliche Formel:
ZAEHLENWENNZEICHEANPOSI(<Bereich>;<Zeichenposition>;<SuchZeichen>) - Zählt alle Zellen, in denen das gesuchte Zeichen an der gesuchten Position vorhanden ist.

VBAVBA Codeschnipsel
XLSQuelltext zur Verwendung mit Microsoft® Excel®

Der Quelltext ...

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_formelzwzap.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.online-vba.de
' ****************************************************************


Public Function ZAEHLENWENNZEICHENANPOSI(ByRef Bereich As Range, ByVal Zeichenposition As Long, _
                                         ByVal GesuchtesZeichen As String) As Long
  Dim oCell As Object
  Dim lCount As Long
    
    lCount = 0
    For Each oCell In Bereich.Cells
        If LCase(Mid(oCell.Value, Zeichenposition, 1)) = LCase(GesuchtesZeichen) Then
            lCount = lCount + 1
        End If
    Next oCell
    
    ZAEHLENWENNZEICHENANPOSI = lCount
    
    Set oCell = Nothing
End Function

Anmerkungen und Hinweise ...

Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2014.
Es gelten die Nutzungsbedingungen von Online-VBA.de.
TOTOP
ANZEIGE