Microsoft Excel

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