Tabellenblatt auswählen mit msgbox
15.02.2009 02:03:00
Muthig
im folgenden Makro wird durch Eingabe in eine msgbox ein Tabellenblatt ausgewählt. In der Datei sind 53 Tabellenblätter, ein Tabellenblatt heißt "Anmeldung", die anderen sind mit "1", "2"."3" usw. bis "52" benannt. Bei den zweistelligen Tabellenblättern funktioniert es, aber bei den einstelligen nicht. Kann mir jemand helfen ?
Sub TabSelect()
Dim wks As Worksheet
Dim strWks As String
strWks = InputBox("Bitte Kalenderwoche (Tabellenblatt) 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
Wo liegt der Fehler ? Bin nur VBA- Anfänger. Vielen Dank schon mal im Voraus.
Freundliche Grüße
Thomas