ich habe eine Datei mit mehreren Arbeitsblätter.
Ich benötige eine Prüfung, ob mehrere Arbeitsblätter vorhanden sind, die mit Buchen_ beginnen oder nur eines.
Besten Dank für eure Hilfe.
Gruss
Peter
Sub Schaltfläche1_Klicken()
Dim ws As Worksheet
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
Gruß Werner