Wie kann man in eine ListBox alle werte aus zeile 1 auflisten?
Vielen Dank für eure Hilfe!
mfg David
Private Sub UserForm_Initialize()
x = 1
While Sheets("Tabelle1").Cells(x, 1).Value <> ""
UserForm1.ListBox1.AddItem Sheets("Tabelle1").Cells(x, 1).Value
x = x + 1
Wend
End Sub