Sortier-Makro aufräumen
18.05.2017 17:23:30
Ingo
Ich nutze Excel 2013 auf einem Windows 10 PC.
Ich habe eine Excel-Tabelle mit Adressen.
Diese möchte ich per Makro Sortieren nach Nachnamen/Vornamen.
Ich habe das mit der Sortierfunktion von Excel gemacht und es dabei als Makro aufgezeichnet.
Da kommt nun ein recht großes Code-Gebilde bei heraus.
Kann man das noch irgendwie verkürzen/vereinfachen?
Muss da wirklich das alles drinstehen, was der Macro-Recorder da hineinschreibt?
Hier der Code:
Gruß
Ingo
Sub AAAAA()
ActiveWorkbook.Worksheets("Adressen").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Adressen").Sort.SortFields.Add Key:=Range( _
"B2:B2056"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Adressen").Sort.SortFields.Add Key:=Range( _
"A2:A2056"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Adressen").Sort
.SetRange Range("A1:L2056")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub