Tabellenblatt auswählen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

022198    015798

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