Individuelle Formel: ZAEHLENWENNZEICHEANPOSI
Ausgangslage - Was tut dieser Code-Schnipsel?
Immer wieder nützliche Formel:
ZAEHLENWENNZEICHEANPOSI(<Bereich>;<Zeichenposition>;<SuchZeichen>)
- Zählt alle Zellen, in denen das gesuchte Zeichen an der gesuchten Position vorhanden ist.
Der Quelltext
Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/individuelle-formel-zaehlenwennzeichenanposi
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von 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.
Die Nutzung erfolgt auf eigene Gefahr.
Bitte denken Sie immer zuerst an eine ausreichende Datensicherung.
Wir können keinen kostenlosen Support anbieten.
Es gelten unsere Nutzungsbedingungen.
