Allgemeines Makro für Sortierung
17.08.2019 16:53:52
Burghard
ich hätte gerne ein allgemein gültiges Makro für die Sortierung, welches ich dann per Schaltfläche aktiviere (Excel 2000).
Ich möchte nicht immer wieder über die Menüs gehen und dort die Sortierkriterien immer wieder neu einstellen. Mein angedachtes Vorgehen:
1. Ich markiere den Sortierbereich manuell.
2. Ich klicke die Schaltfläche an und es wird per Makro nach den unten genannten Kriterien sortiert.
Der Adresse des markierten Rangebereichs (1. Zelle in Spalte A und letzte Zellen in Spalte D) müsste m.E. vor der Sortierung per VBA ausgelesen und in das untere Makro (habe ich per Makro-Rekorder aufgenommen) entsprechend eingesetzt werden.
Sortierung:
Range("A278:D490").Select
Selection.Sort Key1:=Range("B278"), Order1:=xlAscending, Key2:=Range( _
"C278"), Order2:=xlAscending, Key3:=Range("D278"), Order3:=xlAscending, _
Header:=xlNo, OrderCustom:=5, MatchCase:=False, Orientation:= _
xlTopToBottom
Hilfe wäre nett.
Grüße
Burghard