ich möchte gerne Zählen wie oft ein Buchstabe an erster Stelle vorkommt.
Private Sub CommandButton1_Click()
Dim i As Long
Dim Pos As Long
Dim Zeichen As String
Dim Zelle As Range
Dim a As String
Zeichen = UCase(Left(txt_Buch, 1))
i = 0
For Each Zelle In Worksheets(1).Range("B2:B38")
Pos = InStr(1, UCase(Zelle.Value), UCase(Zeichen))
While Pos 0
Pos = InStr(Pos + Len(Zeichen), Zelle.Value, Zeichen)
i = i + 1
Wend
Next Zelle
a = MsgBox("Die Zeichenfolge " & Zeichen & " wurde " _
& i & " Mal gefunden.", vbOKOnly, "Suchergebnis")
End Sub
Leider bringt das Ergebnis 11 anstatt 2Danke!
Gruß, Lisa
https://www.herber.de/bbs/user/130290.xlsm