@Nike: Anzahl Zeichen in Zeichenfolge
08.08.2003 11:50:01
Carsten
Du hast mal in folgendem Beitrag geantwortet
https://www.herber.de/forum/archiv/100to104/t101007.htm
Sub Makro3()
Dim strTest As String
Dim strBuchSuch As String
Dim intStart As Integer
Dim intAnzahl As Integer
strTest = "Testomat"
strBuchSuch = "t"
intStart = 1
Do
If InStr(intStart, strTest, strBuchSuch) > 0 Then
intAnzahl = intAnzahl + 1
strTest = Right(strTest, Len(strTest) - InStr(intStart, strTest, strBuchSuch))
intStart = InStr(1, strTest, strBuchSuch)
Else
GoTo Nächste
End If
Loop Until intStart = 0
Nächste:
MsgBox intAnzahl
End Sub
Dort wird in Deiner Version nicht der Fall abgefangen, dass das Zeichen nicht vorkommt. Oben mal eine kleine Erweiterung, die diesen Fall mit berücksichtigt. Nur als Info!
Gruß,
Carsten