AW: ListView sortieren
15.04.2021 11:58:47
Nepumuk
Hallo Olga,
die Sorted-Eigenschaft ist noch immer auf True. Also:
With Me.lvwA
.ListItems.Clear
.ColumnHeaders.Clear
.View = lvwReport
.Sorted = False
.ColumnHeaders.Add , , "Datum", Sheets("Artikel").Columns(13).Width
.ColumnHeaders.Add , , "Bezeichnung", Sheets("Artikel").Columns(2).Width
.ColumnHeaders.Add , , "Bezeichnung Nr.", Sheets("Artikel").Columns(3).Width
.ColumnHeaders.Add , , "Einheit", Sheets("Artikel").Columns(4).Width
For lol = 2 To Sheets("Artikel").Cells(Rows.Count, 1).End(xlUp).Row
x = x + 1
.ListItems.Add , , Sheets("Artikel").Cells(lol, 13)
.ListItems(x).SubItems(1) = Sheets("Artikel").Cells(lol, 2)
.ListItems(x).SubItems(2) = Sheets("Artikel").Cells(lol, 3)
.ListItems(x).SubItems(3) = Sheets("Artikel").Cells(lol, 4)
Next
y = .ColumnHeaders(1).Width + .ColumnHeaders(2).Width + _
.ColumnHeaders(3).Width + .ColumnHeaders(4).Width + 5
.Width = y
.SortKey = 0
.Sorted = True
End With
Gruß
Nepumuk