H I L F E Listview
01.01.2005 20:12:05
Lars
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