kann mir jmd. sagen wie ich meine Combobox1 mit einer Liste von Überschriften (Zellen A1:G1) füllen (ListFillRange) kann?
Vielen Dank im Voraus!
Private Sub ComboBox1_GotFocus()
With Me
.ComboBox1.List = _
Application.WorksheetFunction.Transpose(Worksheets("Tabelle1").Range("A1:G1"))
End With
End Sub
Unter den Eigenschaften muss der Eintrag für "ListFillRange" dann leer bleiben.
Gruß
Franz