Private Sub UserForm_Activate()
Dim LE As Long, x As String
ComboBox2.Clear
For LE = 1 To 10
x = Worksheets("Test").Cells(LE, 1).Text
ComboBox2.AddItem x
Next
ComboBox2.AddItem "Zusatzeintrag"
End Sub
Private Sub UserForm_Activate()
With Worksheets("Test")
ComboBox2.List = .Range(.Cells(1, 1), .Cells(LE, 1)).Value
End With
ComboBox2.AddItem "Zusatzeintrag"
End Sub
Um eine ComboBox in Excel VBA mit einer RowSource zu füllen und zusätzlich einen manuellen Eintrag hinzuzufügen, folge diesen Schritten:
Öffne den VBA-Editor: Drücke ALT + F11.
Erstelle ein UserForm: Klicke mit der rechten Maustaste auf "VBAProject", wähle "Einfügen" und dann "UserForm".
Füge eine ComboBox hinzu: Ziehe eine ComboBox aus der Toolbox auf das UserForm.
Füge den folgenden Code in das UserForm ein:
Private Sub UserForm_Activate()
Dim LE As Long
Dim x As String
ComboBox2.Clear
For LE = 1 To 10
x = Worksheets("Test").Cells(LE, 1).Text
ComboBox2.AddItem x
Next
ComboBox2.AddItem "Zusatzeintrag"
End SubStarte das UserForm, um die ComboBox mit Einträgen zu füllen und den manuellen