vba - sortieren - Autofilter
17.01.2021 15:28:24
Fred
Hallo Excel Experten,
ich filtere Daten folgend
On Error Resume Next
Worksheets("DATA").ShowAllData
On Error GoTo 0
Set Bereich = Worksheets("DATA").UsedRange
Rows(13).AutoFilter Field:=2, Criteria1:=Sheets("DATA").Range("FC4") ' KW
Rows(13).AutoFilter Field:=164, Criteria1:="Wenn ich das über den Recorder mache lautet der Code so:
ActiveWorkbook.Worksheets("DATA").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("DATA").AutoFilter.Sort.SortFields.Add2 Key:=Range( _
"A13:A969"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("DATA").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Meine Frage;
Wie schreibe ich das entsprechende Sortieren optimal,- kann mir bitte jemand dabei helfen?
Gruss
Fred