Gruppe
Allgemein
Problem
Ich möchte den Teil eines Tabellenblattnamens in eine InputBox eingeben und das erste Tabellenblatt, daß diesem Kriterium entspricht, auswählen lassen. Wie mache ich das?
StandardModule: basMain
Sub TabSelect()
Dim wks As Worksheet
Dim strWks As String
strWks = InputBox("Bitte Tabellenname angeben:")
If strWks = "" Then Exit Sub
For Each wks In Worksheets
If InStr(UCase(wks.Name), UCase(strWks)) > 0 Then
wks.Select
Exit Sub
End If
Next wks
Beep
MsgBox "Kein Blatt gefunden!"
End Sub