ich würde gerne meine Tabellenblätter, die in der ComboBox aufgelistet sind anklicken können und dann auf das jeweilige Tabellenblatt gelangen können.
Folgend mein Makro:
Private Sub ComboBox1_Change()
Dim wsTabelle As Worksheet
ComboBox1.Text = "Jahr auswählen"
For Each wsTabelle In Worksheets
If InStr(1, wsTabelle.Name, "Daten 20") 0 Then 'Alle Mappen mit Namen Daten 20 werden aufgelistet
ComboBox1.AddItem wsTabelle.Name
End If
Next wsTabelle
For Each wsTabelle In Worksheets
If InStr(1, wsTabelle.Name, "Daten 20") 0 Then 'Ausgewählte Mappe ansprechen
wsTabelle.Activate
End If
Next wsTabelle
End Sub
1.) Es sind nur bestimmte Tabellenblätter aufzulisten und deshalb sollte der Befehl irgendwie "Daten 20" wie oben lauten (also nur Mappen mit dem Namen sollen aufgelistet werden (das funktioniert ganz gut) 2.) Das Anklicken der jeweiligen Mappe funktioniert nicht es springt immer zu "Daten 2021" und nicht zum angeklickten "Jahr"
3.) Wenn ich die Excel öffne, muss ich erst Visual Basics starten, das Programm "laufen lassen" und dann erst kommt die Auflistung
Bitte um Hilfe... :/