cbx auf UF mit Daten aus separater Datei füllen
23.03.2018 10:54:01
Fliegender_TW
ich stehe gerade vor einem kleinen Problem.
Ich habe eine Userform (MultiPage) erstellt und würde gern eine darauf befindliche Combobox mit Daten aus einer separaten Tabelle füttern. Jetzt habe ich einen Code gefunden und versucht anzupassen, jedoch wird meine Combobox leider nicht gefüllt.
Die Datei aus der die Daten stammen sollen heißt Dateneingabe und das Tabellenblatt heißt Nachunternehmer. (enthällt die Daten)
Kann mir zufällig einer sagen, wo mein Fehler liegt. (Combobox wird nicht gefüllt)
Private Sub MultiPage1_activate()
Public arrNachunternehmer
Dim sDateiDateneingabe As String, wbDateneingabe As Workbook
If Not IsArray(arrNachunternehmer) Then
sDateiDateneingabe = "x:\xxx.xlsx"
Application.ScreenUpdating = False
Application.StatusBar = "Dateneingabe wird geladen"
Set wbDateneingabe = Application.Workbooks.Open(Filename:=sDateiDateneingabe, ReadOnly:=True)
With wbDateneingabe.Nachunternehmer
arrNachunternehmer = .Range(.Cells(2, 1), .Cells.SpecialCells(xlCellTypeLastCell))
End With
wbDateneingabe.Close savechanges:=False
Application.ScreenUpdating = True
Application.StatusBar = False
End If
UserForm2.ComboBox1.List = arrDateneingabe
UserForm2.Show
End Sub
Ich muss ehrlich zugeben, dass ich den Code bis dato nicht vollumfänglich verstanden habe. ;(