Gruppe
Allgemein
Bereich
Arbeitsblatt
Thema
Tabellenblatt auswählen
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?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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