ist es möglich alle Daten ohne Schleife in ein ListView einzutragen?
Die Daten stehen im zweidimensionalen Array arrAll.
Das Folgende würde ich gerne in einem Rutsch erledigen:
'Daten aus Array in ListView eintragen
With Me.lvwAll
For lngZe = LBound(arrAll) To UBound(arrAll)
'neue Zeile im ListView
.ListItems.Add , , arrAll(lngZe, 1)
'alle Spalten der Zeile reinschreiben
For lngSp = 1 To lngLS - 1
.ListItems(lngZe).SubItems(lngSp) = arrAll(lngZe, lngSp + 1)
Next lngSp
Me.Caption = "Bitte warten " & lngZe & " - " & UBound(arrAll)
Next lngZe
End With
Gruß
Alfons
http://vba1.de