da mir google mir schon weitergeholfen sollte jetzt das Makro nur noch absteigend sortieren, da ich mit meinem Latain am Ende bin benötige ich Eure Unterstützung.
Kann mir jemand helfen.
Herzlichen Dank
CU Tün
Sub Sortieren()
Dim Zeile As Long
Zeile = Range("b16:o96").Find("*", , , , xlByRows, xlPrevious).Row
Range(Range("b16"), Cells(Zeile, 15)).Sort Key1:=Range("o16"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=6, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub