Guten Morgen,
habe vor einiger Zeit aus dem Archiv einen Code geholt, funktioniert auch einwandfrei.
Dim i As Byte
Dim iZeile As Long
Dim WS As Worksheet
Set WS = Worksheets("erfassung")
ReDim listearray(1 To WS.Range("c65536").End(xlUp).Row, 1 To 1) As Variant
For iZeile = 4 To WS.Range("c65536").End(xlUp).Row
For i = 1 To 1
listearray(iZeile - 3, i) = Cells(iZeile, 3)
Next i
Next iZeile
LstNummer.List = listearray
mit diesem Code fülle ich eine 1 Spaltige Listbox, wie muss der Code nun
verändert werden dass ich meine Listbox mit 5 Spalten füllen kann?
danke für eure Hilfe