Sub x()
Dim s$, table As Worksheet
s = InputBox("Tabellennamen eingeben", "welche Tabelle")
If s = "" Then Exit Sub
For Each table In ActiveWorkbook.Worksheets
If table.Name = s Then table.Activate: Exit For
Next
End Sub
Sub Blatt()
Dim b As String
b = InputBox("Namen eingeben")
On Error Resume Next
Sheets(b).Select
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen