auseinander liegende Spalten in ein Array bringen

Sub LiBo_fuellen()
Dim PfaDat   As Object
Dim Pfad     As String
Dim Datei    As String
Dim arrWerte As Variant
   Application.ScreenUpdating = False
   
   Pfad = ThisWorkbook.Path
   Datei = "Mitarbeiter.xls"
   
   Sheets("Tabelle5").ListBox1.ColumnWidths = "5,5 cm; 6,5 cm"
   Sheets("Tabelle5").ListBox1.Clear
   
   Set PfaDat = GetObject(Pfad & "\" & Datei)
   
   arrWerte = PfaDat.Sheets(1).Range("A1:A20", "C1:C20")  ' <=== Problem !!!
   
   MsgBox arrWerte(1, 1) & " / " & arrWerte(1, 2) & vbLf & _
          arrWerte(2, 1) & " / " & arrWerte(2, 2)
   Sheets("Tabelle5").ListBox1.List = arrWerte
   PfaDat.Close False
   Set PfaDat = Nothing
          
   Application.ScreenUpdating = True
          
End Sub