Hallo nochmal,
hatte eben einen Beitrag geschrieben, wegen einer Textbox in der Menüleiste.
Nun dies scheint nicht zu funktionieren, deshalb hab ich im Archiv etwas gestöbert und eine Möglichkeit mit einer Combobox gefunden.
Hier mal der Code:
Sub Cbo_ein()
Dim Cbo As CommandBarComboBox
Call Cbo_aus
With CommandBars("Worksheet Menu Bar")
Set Cbo = .Controls.Add(Type:=msoControlComboBox, Before:=11)
End With
With Cbo
.Caption = "Kollegen"
.OnAction = "DW"
.List ?
ab hier weis ich nicht weiter, es sollen alle Namen die ich im Tabellenblatt Hansi in der PERSONL.xls hinterlegt habe in diese Combobox gefüllt werden.
Habs vergeblich versucht, bekomme es leider nicht hin.
Könnte mir da jemand helfen?
Vielen Dank im voraus..
Grüße
Hansi