Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Tabellenblatt auswählen
Gruppe
Arbeitsblatt
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