Abfrage Existenz mehrere Arbeitsblätter

02/07/2014 - 17:40 von Ralf Gläßer | Report spam
Hallo Claus,

gibt es eine kurze Möglichkeit per VBA Excel2010 die Existenz mehrerer
Arbeitsblàtter in einer Arbeitsmappe abzufragen?
Oder muss man wirklich jedes einzeln per Name abfragen?

z.B.so oder àhnlich:
Abfrage für Existenz
Blatt1
-> ja, weiter
-> nein, Exit
-> Blatt2
-> ja, weiter
-> nein, Exit

Ich habe momentan keine Vorstellung wie ich dich kurz und schmerzlos
hinbekomme.

Grüße
Ralf
 

Lesen sie die antworten

#1 Claus Busch
02/07/2014 - 18:12 | Warnen spam
Halo Ralf,

Am Wed, 02 Jul 2014 17:40:16 +0200 schrieb Ralf Glàßer:

gibt es eine kurze Möglichkeit per VBA Excel2010 die Existenz mehrerer
Arbeitsblàtter in einer Arbeitsmappe abzufragen?
Oder muss man wirklich jedes einzeln per Name abfragen?



folgender Code sagt dir welche Blàtter fehlen oder ob alles vorhanden
ist. Das Array mit den Blattnamen musst du halt anpassen:

Sub Tabellenblaetter()
Dim arrBlatt As Variant
Dim i As Long
Dim myStr As String

On Error Resume Next
arrBlatt = Array("Tabelle1", "Tabelle2", "Tabelle5")
For i = LBound(arrBlatt) To UBound(arrBlatt)
If Sheets(arrBlatt(i)) Is Nothing Then
myStr = myStr & arrBlatt(i) & Chr(10)
End If
Next

If Len(myStr) > 0 Then
MsgBox "Folgende Blàtter fehlen:" & Chr(10) & myStr
Else
MsgBox "Alle Bàtter vorhanden"
End If
End Sub


Mit freundlichen Grüßen
Claus
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Ähnliche fragen