Wie Prüfen ob Worksheet vorhanden
Holger
folgendes Problem.
Ich öffne aus einer Excel Datei eine andere Excel Datei. Hier muss ich prüfen,
ob es zwei WorkSheets gibt.
01 SH1 TH1
02 SH1 TH2
Wenn es einen von beiden nicht gibt, soll eine Fehlermeldung erscheinen.
Ich habe das hier mal programmiert aber das bringt nicht viel, denn ich brauche
den genauen Namen.
Wie kann ich schnell und komfortabel das prüfen?
Sub sonicht
For Each wks In Worksheets
strWorkSheets = wks.Name
If InStr(strWorkSheets, "01 02 SH1 TH1") > 0 Then
strWorkSheets2 = Left(strWorkSheets, 2)
If InStr(strWorkSheets, strWorkSheets2) = 0 Then
MsgBox "Achtung, Tabellenblattnamen sind nicht gültig"
End If
Else
MsgBox "Achtung, Tabellenblattnamen sind nicht gültig"
End If
Next wks
End Sub