Externe Daten in ListBox

Sub ExternInListBox()
Dim r        As Byte
Dim c        As Byte
Dim strPath  As String
Dim strFile  As String
Dim strTable As String
Dim Arr(1 To 63, 1 To 6)
strPath = "C:\Users\Benutzer01\Desktop\CHORD\" & TextBox1.Value    'anpassen
strFile = TextBox2.Value & ".xlsx" 'anpassen
strTable = "Tabelle1"   'anpassen
If Right(strPath, 6)  "\" Then strPath = strPath & "\"
For r = 1 To 63
For c = 1 To 6
Arr(r, c) = ExecuteExcel4Macro("'" & strPath & "[" & _
strFile & "]" & strTable & "'!" & _
Cells(r, c).Address(, , xlR1C1))
Next c
Next r
ListBox3.ColumnCount = 6
ListBox3.List = Arr
End Sub

For r = 1 To 63