Kombinationsfeld in Menüleiste
01.02.2007 19:19:55
Roland
Ich lese mit untenstehendem Makro eine Liste mit Namen aus. Wie kann ich den ausgewählten Namen des Kombinationsfeldes in eine Zelle schreiben zB. Tabelle1 A1? Es muss nicht pro Name ein unterschiedliches Makro laufen. Ich brauch die Liste nur damit ich nicht auf dem Tabellenblatt eine Combobox erstellen muss.
Besten Dank für eure Hilfe.
Gruss
Roland
Sub Einzelauswahl()
Dim ws As Worksheet
Dim i As Long
Set ws = Worksheets(1)
' Kombinationsfeld einfügen
With Application.CommandBars("Worksheet Menu Bar").Controls. _
Add(Type:=msoControlComboBox)
' Einträge aus Zellen beziehen
i = 1
Do Until ws.Cells(i, 3) = ""
.AddItem Text:=ws.Cells(i, 3)
i = i + 1
Loop
' Einstellungen am Kombinationsfeld
.Caption = "Mitarbeiter"
.DropDownLines = 7
.DropDownWidth = 100
.ListHeaderCount = 0
.TooltipText = "Mitarbeiter auswählen"
.BeginGroup = True
.OnAction = "Datenübertragen"
End With
End Sub