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.
Ergebnisse statt Aufwand & Arbeit?
Wir liefern Ergebnisse - Schicken Sie uns kurz Ihre Datei und Ihre Wünsche; wir integrieren den notwendigen Code professionell, beheben ggf. vorhandene Fehler, machen optional ein Code-Review, liefern bei Bedarf Performance-Optimierungen & setzen gewünschte Erweiterungen effizient für Sie um (und das zum Festpreis nach kurzer Sichtung).
Express-Service beauftragen
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
Das könnte Sie auch interessieren:
Excel-Makro-Programmierung für Düsseldorf mit klaren Festpreisen und direktem Ansprechpartner. Prüfen Sie Ihren Status mit dem DSGVO-Quick-Check-Tool und erhalten Sie eine priorisierte To-do-Liste.
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.
