ich habe eine ComboBox mit der ich den ausgewählten Sheet-Namen in die Zelle N1 ("Tabelle1") schreibe. Nun möchte ich nach der Auswahl die ausgewählte Sheet öffnen.
Private Sub ComboBox1_Change()
Call Sheets_Wechsel
End Sub
Sub Sheets_Wechsel()Dim Blattname As String
Blattname = Sheets("Tabelle1").Range("N1").Value
Worksheets("Blattname").Activate
End Sub Hierbei benötige ich Eure Unterstützung. Vielen Dank und Gruß, Marko