ersten Buchstaben Zählen

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