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ß WernerDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen