VBA / ComboBox Auflistung der Mappen ans
29.09.2021 15:59:08
Melly
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
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... :/
Anzeige