ich habe ein Icon, eine ComboBox und Werte.
Wenn ich das Icon drücke, soll die ComboBox angezeigt und mit Werten gefüllt werden. Bei nochmaligen klicken einfach wieder ausblenden.
Die Werte sind Namen von Tabellen, die ich im Sheet habe.
Wenn ich eine Auswahl in der ComboBox treffe, soll sich die ComboBox ausblenden und zur entsprechenden Tabelle springen.
Mein Problem: Wenn ich das Icon anklicke und damit in der ComboBox alle Werte gelöscht und aktuelle Werte eingetragen werden, erzeugt das ein ComboBox1_Change()-Event. Mein ComboBox1_Change()-Event, mit welchem ich zur ausgewählten Tabelle springen möchte, aktiviert sich dadurch ebenfalls (logischerweise). Das ergibt aber immer einen Fehler, weil in ComboBox1 beim Icon-Klick keine Werte eingetragen sind (durch .clear) und somit auch nicht zu einer Tabelle gesprungen werden kann.
Mein Frage: Gibt es eine Möglichkeit, dies zu umgehen? Entweder durch Variablen, die ich mitnehme (wenn icon-klick dann x="1", ansonsten x="0"; bei combobox_change: wenn x=1 dann überspringen alles, ansonsten führe Code aus) oder zu prüfen, ob das Dropdown geöffnet ist (weil wenn nicht, dann war es ein icon-klick und dann kann es den Code überspringen) oder etwas anderes?
Mein Code bisher:
Sub GoTo_Abteilung()
Dim cbAbteilung As ComboBox
Set cbAbteilung = sh_Jahresdispo1.ComboBox1
cbAbteilung.Visible = Not cbAbteilung.Visible
cbAbteilung.Clear
Dim lo As ListObject
For Each lo In ActiveSheet.ListObjects
cbAbteilung.AddItem lo.Name
Next lo
End Sub
Private Sub ComboBox1_Change()
sh_Jahresdispo1.ListObjects(sh_Jahresdispo1.ComboBox1.Value).DataBodyRange(1, 1).Select
sh_Jahresdispo1.ComboBox1.Visible = False
End Sub
Vielen Dank für jede Empfehlung,LG, Johannes