Thema: 3 Komboboxen in Menubar | Herbers Excel-Forum

Hallo Excellisten,
Habe 3 Kombox in der Menüleiste und möchte den Wert der aus den 3 zuerst angewählt wird weiter verwenden, danach sollte wieder die Kombobox den ursprünglichen Namen anzeigen.
Das funktioniert...

Sub Get_ComboItem()
Dim cbar As CommandBar
Set cbar = Application.CommandBars("Worksheet Menu Bar")
If cbar.Controls(11).ListIndex > 0 Then
ActiveCell.Formula = cbar.Controls(11).Text
End If
If cbar.Controls(12).ListIndex > 0 Then
ActiveCell.Formula = cbar.Controls(12).Text
End If
If cbar.Controls(13).ListIndex > 0 Then
ActiveCell.Formula = cbar.Controls(13).Text
End If
ActiveCell.Formula = sTemp
End Sub

Kann man dies eleganter und schneller lösen? Wie bekomme ich wieder die Grundeinstellung? Wenn kann helfen?
Grüße
Franz D.

Hallo,
du musst doch nur die ActionControl-Eigenschaft benutzen, um dahinter zu kommen welche der Boxen angeklickt wurde.

Gruß
Nepumuk

Danke Nepumuk,
habe soeben dein "ActionControl" kennen gelernt. Ich bin eine Runde weiter.
Tschüss
Franz D.
PS: Grüße an Daisy an der warmen Stube