Tabellenblatt anspringen

Question

Hallo zusammen,

ich habe eine Excel-Tabelle mit über 150 Blättern. Kann ich, wenn ich den Namen des Blattes weiß, dieses direkt anspringen?.

Grüße
Lupine

Answer 1

Hallo Lupine,
mit VBA und Hyperlinks dürfte das kein Problem sein.

Gruß
fedjo

Answer 2

Hallo Lupine,
den Code in ein Modul einfügen und einen Tastaturkürzel zuweisen.
Gruß
fedjo

Sub Tabellen()
Dim strGesucht As String
Dim i As Long
strGesucht = InputBox("Welches Tabellenblatt soll angezeigt werden ?", "Tabellenblatt Auswahl")
For i = 1 To ThisWorkbook.Sheets.Count
If UCase(ThisWorkbook.Sheets(i).Name) = UCase(strGesucht) Then
ThisWorkbook.Sheets(i).Visible = True
ThisWorkbook.Sheets(i).Activate
Exit Sub
End If
If strGesucht = "" Then Exit Sub
Next i
MsgBox "Die Tabelle > " & strGesucht & " < ist nicht vorhanden."
End Sub