Auflistung Tabellennamen beginnend mit

Sub Tabellenblaetter_auflisten3()
Dim i As Integer
For i = 2 To Worksheets.Count
Sheets("Kontodaten").Cells(i, 8) = Sheets(i).Name
Next i
End Sub

Sub Schaltfläche1_Klicken2()
Dim ws As Worksheet
Dim loZähler
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "Buchen*" Then
loZähler = loZähler + 1
End If
Next ws
MsgBox "Es gibt " & loZähler & " Blätter mit ""Buchen"""
End Sub