Meldung, wenn Blätter nicht vorhanden.
12.11.2008 06:13:00
Wolfgang
ich suche nach einer Möglichkeit bzw. einem Code, der überprüft (nicht permanent, sondern nur auf Schaltflächendruck), ob sich Tabellenblätter "Tabelle1", "Tabelle2",....(bis Tabelle 4) in der Mappe befinden, wenn nein, Msgbox und Code abbrechen (es sind noch Folgeaktivitäten, wenn zumindest eines der Blätter vorhanden ist). - Habe schon versucht:
Dim wks As Worksheet
If Nothing wks.Name = "Tabelle1" Or wks.Name = "Tabelle2" Or wks.Name = "Tabelle3" Or wks.Name = " _
Tabelle4" Then
MsgBox "Keine Tabelle 1 bis 4 vorhanden"
Exit Sub
Das klappt aber irgendwie nicht, hat da noch jemand eine Idee, was ich da umstellen/verändern muß?
Danke schon jetzt wieder für die Rückmeldungen.
Gruß - Wolfgang