wie kann ich folgenden Code ergänzen oder ändern, dass eine zu öffnende Combobox (Auswahl) breiter wird? Die Popdown-Liste kann ich mit Dropdownwith = 400 verändern, die ausgewählte Zeile hat dann aber in der wieder auf eine Zeile verkleinerten Combobox keinen Platz.
Der Code ist nur ein Auszug aus div. Buttons in der gleichen Symbolleiste.
Besten Dank für eure Hilfe.
Gruss
Roland
With .Controls.Add(Type:=msoControlComboBox)
' Einträge aus Zellen beziehen
i = 6
Do Until ws.Cells(i, 5) = ""
.AddItem Text:=ws.Cells(i, 5)
i = i + 1
Loop
' Einstellungen am Kombinationsfeld
.Caption = "Mitarbeiterauswahl"
.DropDownLines = 10
.DropDownWidth = 400
.ListHeaderCount = 0
.TooltipText = "Mitarbeiter für Einzelansicht"
.BeginGroup = False
.OnAction = "Datenübertragen"
End With