Hallo spezialisten!
ich habe eine frage zu nachstehndem code. ich möchte gerne diesen code zum einlesen einer Listview umschreiben. komme dabei leider nicht weiter. kann mir jemand dabei helfen?
Sheets("filter2").Select
letztezeile = Range("b65536").End(xlUp).Row
If letztezeile '(kleiner)' 4 Then Exit Sub
anzahl = letztezeile - 4
j = 0
For iZeile = 4 To letztezeile
UserForm3.ListBox3.AddItem j
UserForm3.ListBox3.List(j, 0) = Cells(iZeile, 17)
UserForm3.ListBox3.List(j, 1) = Cells(iZeile, 18)
UserForm3.ListBox3.List(j, 2) = Cells(iZeile, 44)
UserForm3.ListBox3.List(j, 3) = Cells(iZeile, 27)
j = j + 1
Next iZeile
With UserForm3.ListBox3
.ColumnCount = 4
.ColumnWidths = "25;20;60;200"
.ListWidth = 305
.BoundColumn = 1
.TextColumn = 1
.Width = 305
.Top = 130
End With