habe hier im Forum nachfolgendes Makro zum Aufruf der Tabellenblätter über Option: Daten -- Gültigkeit -- Liste gefunden.
Liste mit Ziffern 1,2... bewirken Aufruf der Blätter entsprechend der Reihenfolge.
Würde gern auf dieser Grundlage einen Tabellenwechsel unter Verwendung der Tabellennamen z.B.Raum1 - Raum4 vornehmen.
Gruß bissi
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TabellenBlatt As Byte
On Error Resume Next
TabellenBlatt = Cells(1, 1).Value
Sheets(TabellenBlatt).Select
End Sub