ComboBox mit definierten Namen füllen
Ausgangslage - Was tut dieser Code-Schnipsel?
Dieses kleine Makro fügt in eine ComboBox auf einer UserForm alle Werte eines definierten Namens ein.
Der Quelltext
Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/combobox-mit-definierten-namen-fuellen
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von Online-VBA.de
Public Sub OVBAde_ExcelNamen2ComboBox()
Dim oCell As Object
' Es werden alle Zellinhalte des Namens "List4Box" eingefügt!
For Each oCell In Range("List4Box")
cmbBox1.AddItem oCell.Value ' Meine ComboBox heisst cmbBox1
Next oCell
Set oCell = Nothing
End Sub
Anmerkungen und Hinweise
Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2013.
Die Nutzung erfolgt auf eigene Gefahr.
Bitte denken Sie immer zuerst an eine ausreichende Datensicherung.
Wir können keinen kostenlosen Support anbieten.
Es gelten unsere Nutzungsbedingungen.
