Hallo Thomas,
die einfachste Methode (ohne Prüfung, ob die Tabelle existiert):
[code]Sub tabwechsel()
Worksheets(ActiveSheet.Range("A1").Value).Activate
End Sub[/code]
oder mit Prüfung, ob Blatt existiert:
[code]Sub tabwechsel()
Dim strName As String
Dim i As Long
'Name aus Zelle A1 des aktiven Blattes in Variable schreiben
strName = ActiveSheet.Range("A1").Value
'Prüfen, ob Tabelle in Arbeitsmappe existiert
For i = 1 To ThisWorkbook.Worksheets.Count
If strName = Worksheets(i).Name Then
Worksheets(i).Activate
Exit Sub
End If
Next i
'Falls Blatt nicht existiert, dann Meldung ausgeben
MsgBox "Das Arbeitsblatt " & strName & "existiert nicht!", 16, "Fehler"
End Sub[/code]
Gruß
M.O.