Office: Prüfen ob Tabellenblatt nicht(!) existiert

Hü,

folgendes Szenario: ich habe eine Mappe mit mehreren Tabellenblättern. Existiert ein Blatt mit einem bestimmten Namen nicht, soll eine MsgBox angezeigt werden. Wie mache ich das am blödsten?

Im Grunde läuft das Ermitteln der Namen ja erstmal so: Code:

Ich kann aber nicht prüfen, ob der Name nicht übereinstimmt, denn dann kommt die Meldung ja bei jedem anderen Blatt - auch dann, wenn mein gesuchtes Blatt irgendwo existiert, da die Namen ja der Reihe nach überprüft werden.

Bisher habe ich mir so geholfen, dass ich eine Hilfsvariable habe, die im Ausgangszustand bspw. 0 ist. Jetzt prüfe ich die Namen mit obiger Schleife, und setze die Variable auf 1, wenn mein gesuchter Name vorhanden ist.

Und nach dieser Schleife prüfe ich dann, ob die Variable 1 ist. Also so in etwa: Code:

Geht das auch anders? Meine Methode kommt mir sehr bescheuert vor *biggrin.gif*

Danke.

:)

 

Hallo Mr. Snoot,

versuch einfach, per Code auf das gesuchte Blatt zuzugreifen - wenn es nicht existiert, tritt ein Fehler auf, den Du abfangen kannst.

Beispiel:

Code:

Grüße
EarlFred

 

oder als function:

Prüft ob ein Workbook mit Namen FNAM offen ist oder nicht.
(Das ähnelt deiner Methode)

Function Worksheet_Open(ByVal FNAM As String) As Boolean
Dim w As Workbook
For Each w In Workbooks
If w.Name = FNAM Then
Worksheet_Open = True
Exit Function
End If
Next w
Worksheet_Open = False
End Function

 

Alles klar, vielen Dank. Werde es mal probieren.