ich möchte die ComboBoxen meiner UserForms mit Werten aus einer anderen geschlossenen Arbeitsmappe füllen. Leider bekomme ich das nicht hin und im Netz habe ich auch noch keine Lösung gefunden. Könnte mir bitte jemand helfen?
Private Sub UserForm_Activate()
Dim arrDaten
Dim lngLetzte As Long
Dim Pfad As String
Dim Datei As String
Dim Blatt As String
Pfad = "x:\xxxxxx\xxxxxxx\xxxxxxxxx\"
Datei = "Board.xlsm"
Blatt = "Data Base"
With Worksheets("Data Base")
lngLetzte = .Cells(Rows.Count, 2).End(xlUp).Row
arrDaten = .Range(.Cells(7, 2), .Cells(lngLetzte, 2))
cb_Bereich.List = arrDaten
lngLetzte = .Cells(Rows.Count, 4).End(xlUp).Row
arrDaten = .Range(.Cells(7, 4), .Cells(lngLetzte, 4))
cb_Team.List = arrDaten
End with
End sub