gibt es vielleicht eine Möglichkeit eine Listbox ordentlich per additem befehl zu füllen?
etwa so:
userform1.listbox1.additem Name {tab} Telefonnummer {tab} wasauchimmer
Gruß
Rainer
Sub ListBoxfüllen()
Dim zähler As Long, Zähler2 As Integer, EndZelle As Long, Spalte As Integer
On Error Resume Next
For zähler = ListBox1.ListCount - 1 To 0 Step -1
ListBox1.RemoveItem zähler
Next zähler
EndZelle = Cells(65536, 2).End(xlUp).Row
If EndZelle < 10 Then Exit Sub
For zähler = 11 To EndZelle
ListBox1.AddItem Cells(zähler, 3)
For Zähler2 = 1 To 9
Spalte = Zähler2 + 3
ListBox1.List(ListBox1.ListCount - 1, Zähler2) = Cells(zähler, Spalte)
Next Zähler2
Next zähler
End Sub