Prüfen ob mehrere Tabellen vorhanden
27.10.2015 10:07:14
r2d2
mit dieser Funktion
Sub WS_vorhanden()
Dim WS As Worksheet
For Each WS In ActiveWorkbook.Sheets
If WS.Name = "TEST" Then
' Code wenn Blatt vorhanden '
Else
' Code wenn Blatt nicht vorhanden '
End If
Next WS
End Sub
Wie müßte ich die Funktion umschreiben, daß geprüft wird ob mehrere Tabellenblätter (z.B. TEST1, TEST2, TEST3, ... TEST5) vorhanden sind?