Hallo liebe Excel-Profis,
ich habe schon viele sehr nützliche Tipps hier gefunden, daher die Hoffnung, jemand wird auch hier die Antwort wissen :-)
Ich habe eine Liste mit Datum und Zahlen, die wie folgt sortiert werden soll:
Datum: einfach aufsteigend
Zahl: -2, -10, -100, 2, 5, 15 (also zuerst die negativen Zahlen absteigend und dann die positiven aufsteigend)
Soweit habe ich nur das Makro für das "normale" Sortieren:
Range("B2").Select
LR = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("B2:B" & LR), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add2 Key:=Range("E2:E" & LR), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A1:H" & LR)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Wie kann ich für Spalte E ein if einbauen?
Vielen Dank schon mal für Eure Hilfe
PS ich brauche eine dauerhaufte Lösung, die Liste mache ich mehrmals in der Woche