Excel und VBA - Die Excel-FAQ

Blattname ermitteln

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Blattname ermitteln

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