Gruppe
Allgemein
Problem
Wie kann ich ermitteln, ob eine Blattname bereits vorhanden ist?
StandardModule: basMain
Sub AbfrageTabellenblatt()
Dim sWks As String
sWks = InputBox(prompt:="Gesuchtes Blatt:")
If sWks = "" Then Exit Sub
On Error GoTo ErrorHandler
Worksheets(sWks).Select
End
ErrorHandler:
MsgBox "Blatt " & sWks & " nicht vorhanden!"
End Sub