ich habe mir die Inhalte des Arbeitsblattes sortiert (mit drei Sortkriterien). Jetzt möchte ich noch eine Sortierung per VBA wie folgt durchführen....
Ab Zeile 4 sollen die Zeilen die gleichen Zelleninhalt in Spalte H haben, markiert und wie folgt sortiert werden:
Selection.Sort _
Key1:=Range("I" & ActiveCell.Row), Order1:=xlAscending, _
Key2:=Range("J" & ActiveCell.Row), Order2:=xlAscending, _
Key3:=Range("C" & ActiveCell.Row), Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
Danach die nächste Zeilen markieren die gleichen Zelleninhalt in Splate H haben und wieder die Sortierung anwenden. usw...
Anmerkungen:
~~~~~~~~~
- Die letzte gefüllte Zelle kann in Spalte A ermittelt werden.
- Die Markierung der Zeilen geht immer bis ein anderer Zelleninhalt in Spalte H vorkommt
Wie mache ich das?
Vielen Dank im Voraus !
Liebe Grüße,
Selma