Anzahl bestimmter Zeichen in einer Zeichenkette

Hallo,

gibt es in VBA eine Möglichkeit, aus einer Zeichenkette die Anzahl der Vorkommnisse eines bestimmten Zeichens zu ermitteln?

Beispiel:
Zeichenkette = ab-c-defgh
Suchkriterium = „-“
Ergebnis = 2

Danke
Gruß
Uli

Hallo Uli,

man kann eine Funktion dafür ‚mißbrauchen‘.

Option Explicit

Private Sub Command1\_Click()
 Dim Teile() As String
 Dim Zeile As String
 Zeile = "Das soll mal ein Test fuer Split werden"
 Teile = Split(Zeile, "e")
 Command1.Caption = UBound(Teile)
End Sub

liefert eine 5, es sind 5 ‚e‘ im String …

Gruß, Rainer