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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen