Laufzeitfehler 9: Index ausserhalb des gültigen Bereichs

Private Sub UserForm_Initialize()
Dim ListBoxTmp as Variant 'auch mit "as String" funktioniert es nicht  
Dim uf As Object
Set uf = uf_Test

'Quelle öffnen  
strgWkbName = "tbl_Funktionen.xlsx"  
strgTabName = "Funktionen"  
strgLbxName = "lbxFunkt"  

strPath = ActiveWorkbook.Path
Set wbkExcel = Excel.Workbooks.Open(strPath & "\" & strgWkbName, ReadOnly:=True)  

Beschriebenen Bereich ermitteln
'LetzteZeile in Quelle  
lngLetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
lngErsteLeereZeile = lngLetzteZeile + 1
'LetzteSpalte in Quelle  
intLetzteSpalte = ActiveSheet.Cells(1, 256).End(xlToLeft).Column

Daten von Quelle kopieren
ActiveSheet.Cells.Select
Selection.Copy

Kopierte Daten in Zieltabelle (TempLbxTab) einfügen
Windows("frm_Ziel.xlsm").Activate  
Sheets("TempLbxTab").Select  

Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

'Listbox in Userform mit den Daten aus TempLbxTab füllen  
Dim ListBoxTmp As Variant
Set objLbx = uf.lbxFunkt 
ListBoxTmp = Workbooks("frm_Ziel").Sheets("TempLbxTab").Range(Cells(1, 1), Cells(lngLetzteZeile, intLetzteSpalte))   
objLbx.List = ListBoxTmp
Windows("frm_Ziel.xlsm").Activate  
Sheets("Ziel").Select  

'Quelle wieder schließen (ohne zu spreichern)  
Application.DisplayAlerts = False
Windows(strgWkbName).Activate
ActiveWindow.Close savechanges:=False
Application.DisplayAlerts = True

'Gesamte Listbox als Array  
Dim arrDatalbxFunkt as Variant
arrDatalbxFunkt = uf.lbxFunkt.List

End Sub