Sheets Überprüfen
13.09.2004 19:39:23
Wolfi
ich möchte in einer Excelmappe überprüfen ob bestimmte Tabellenblätter schon vorhanden sind. Falls nicht soll eine Fehlermeldung ausgegeben werden.
Ich hab hierfür schon etwas im Forum gefunden und angepasst:
Dim bolBlattDa As Boolean
Dim iSheetCount As Integer
Dim strSheetUpdate As String
strSheetUpdate = "Document"
strSheetUpdate1 = "Process"
strSheetUpdate2 = "Product"
For iSheetCount = 1 To Sheets.Count
If Sheets(iSheetCount).Name = strSheetUpdate Then
bolBlattDa = True
Exit For
End If
Next
If bolBlattDa Then
Else
MsgBox strSheetUpdate & " Blatt nicht vorhanden"
Exit Sub
End If
Es läuft auch ohne Probleme.
Allerdings kann ich damit nur ein Blatt (also hier das Blatt Document) überprüfen. Ich möchte aber das mehrere Blätter überprüft werden und falls nicht das oder die entsprechenden Blätternamen in der MsgBox angezeigt werden.
Hier ist leider mein Latein am Ende.
Hab keine Ahnung wie ich das anstellen muss. Vielleicht hat von Euch jemand ein paar Tipps.
Gruß und Danke schon mal
Wolfi