wie kann ich bestimmen ob in einer Datei das Worksheet ("XXXX") existiert oder nicht (Code).
Danke und schönes Wochenende!
Florian
Sub TabAuswahl()
Dim Sh As Worksheet
Dim sName$
sName = InputBox("Bitte Tabellenname eingeben!")
For Each Sh In Worksheets
If InStr(Sh.Name, sName) > 0 Then
Sh.Select
Exit Sub
End If
Next Sh
Beep
MsgBox "Kein Blatt gefunden!"
End Sub
Public Function SheetTest(strName As String) As Boolean
On Error Resume Next
SheetTest = Not Sheets(strName) Is Nothing
End Function
Als Parameter übergibst du den zu überprüfenden Namen und erhälst "True" zurück wenn das Sheet existiert ansinsten "False"
Gruss
Dani