3 Komboboxen in Menubar
Franz
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.
Anzeige