Spalten einfügen Listbox

hallo,

habe folgenden Code:

Dim X As Long
With Tabelle2
ListBox1.Clear

For X = .Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1
If .Cells(X, 1) > "" Then ListBox1.AddItem .Cells(X, 1).Text
Next
End With
End Sub

Allerdings wird in der Listbox nur die Erste Spalte angezeigt..Wie kann ich es hinbekommen das 3 Spalten aus Tabelle 2 in der Listbox angezeigt werden.

lieben dank