Prüfen ob Blatt vorhanden ist
21.05.2003 09:42:31
Phill
ich hätte gern gewusst, ob es eine bessere Möglichkeit gibt das Vorhandensein eines bestimmten Tabellenblattes abzuprüfen, als meine untenstehende.
Vielen Dank für die Hilfe
Sub test()
Dim i%
Dim gefunden as boolean
gefunden = false
for i = 1 to worksheets.count
if sheets(i).name = "Tabelle1" then
gefunden = true
end if
next i
if gefunden = true then
msgbox "Tabelle1 ist vorhanden"
end if
End Sub
Phill