Schon mal so probiert?
With Form5.LvArtikelListe .SortKey = 3 .SortOrder = lvwAscending .Sorted = True End With
Gruß Mr. K.