Zellenformatierung Listbox gleiches Format

[Frank-Kan]

Hallo Gemeinde.
Nach einigen Diskussionen auf der Arbeit sind wir zu dem Entschluss gekommen, 
dass Laden uind Speichern in eine externe .xlsx Datei zu verlegen die dann in der Praxis auf einem Server liegt,
auf die dann jeder Anwnder zugreifen kann.
Vorher war das ganze Bestandteil der .xlsm Datei in Tabellenblättern.
Was bis jetzt auch gut funktioniert hat.
Ich habe das ganze bis jetzt abgeändert, sodass es auch mit 1 Spalte in der ListBox funktioniert.
Bis jetzt sieht es so aus:

Code:

Dim i As Long
    Dim destinationWorkbook As Workbook
    Dim destinationWorksheet As Worksheet
' Öffne die externe Excel-Datei (wird später abgeändert)
    Set destinationWorkbook = GetObject("C:\Users\frank\Excel Arbeit\Archiv.xlsx")
Set destinationWorksheetPrüfkontur = destinationWorkbook.Worksheets("Prüfkontur")
With destinationWorksheetPrüfkontur
        For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            ListBox1.AddItem .Cells(i, 1).Text
        Next i
    End With

Jetzt soll nicht nur 1 Spalte in der ListBox1 stehen sondern 4 Spalten. Und das mit Überschriften.
Da aber die entsprechenden Spalten mit den Informationen in der Tabelle Prüfkontur verteilt sind, habe ich eine Hilfstabelle: UserForm5Liste.
Die Angaben werden per VBA von der Tabelle Prüfkontur nach Tabelle UserFormListe5 übertragen.
Darin sind 4 Spalten:
A Zeichnungsnummer
B Kunde
C Datum
D Lfd.Nr.
In Zeile 1 sind dann die Überschriften entsprechend.
Die Hilfstabelle dient der bessern Übersicht für die ListBox.
Die Tabelle Prüfkontur ist die Tabelle die alle Informationen enthält die geladen werden sollen.
Wie kann ich das so umsetzen das ich die o.g. Überschriften habe, und dann die ListBox befüllen kann?
Danke
Gruß
Frank