Beispiel:
Private Sub UserForm_Initialize()
Sheets("Tabelle2").Select
ListBox1.ColumnCount = 5
ListBox1.RowSource = "a1:e4"
'Wenn cells(6,1) besetzt ist, kommt Fehler, daher: vorher löschen
Cells(6, 1).ClearContents
'In diese Zelle wird ausgewähltes Element ausgegeben
ListBox1.ControlSource = "a6"
'Mit BoundColumn Werte in a6 verändern
ListBox1.BoundColumn = 0
'ListBox1.BoundColumn = 2
End Sub