Private Sub cmdChange_Click() If ActiveSheet.Name = "Tabelle1" Then Worksheets("Tabelle2").Select Else Worksheets("Tabelle1").Select End If End Sub