könnte mir jemand bitte, bitte mein aufgezeichnetes MAkro überarbeiten?
Ich habe die Sortierung meines Sheets "Daten" aufgezeichnet, diese sieht aber absolut unübersichtlich aus. Würde mich freuen, wenn Ihr mir dieses kurz anpassen könntet?
Danke!!!!!
ActiveWorkbook.Worksheets("Daten").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Daten").AutoFilter.Sort.SortFields.Add Key:=Range( _
"B2:B210"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"Januar,Februar,März,April,Mai,Juni,Juli,August,September,Oktober,November,Dezember" _
, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Daten").AutoFilter.Sort.SortFields.Add Key:=Range( _
"F2:F210"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"Übertrag,Einnahme,Ausgabe,Rückstellungen", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Daten").AutoFilter.Sort.SortFields.Add Key:=Range( _
"G2:G210"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Daten").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply