Vereinfacht sieht mein Problem so aus:
Private Sub UserForm_initialize()
combobox_füllen(ComboBox1)
End Sub
Sub combobox_füllen(cb As ComboBox)
cb.AddItem Range("A1")
End Sub
Funktioniert leider nicht, bin über jeden Tip dankbar
Private Sub UserForm_initialize()
combobox_füllen(ComboBox1)
End Sub