Sortieren nur jede 4.Zeile
KlausF
ich habe einen Bereich D13:N28 in dem nur jede 4. Zeile mit Werten gefüllt wird
(restliche Zeilen werden später schreibgeschützt und enthalten nicht sichtbaren Text).
https://www.herber.de/bbs/user/71107.xls
Ich möchte nun das nach Spalte D sortiert wird aber nur die besagten Zeilen
berücksichtigt werden. Probiert habe ich
Sub Sort()
Dim rng As Range
Set rng = Range("D13:N13,D16:N16;D19:N19,D22:N22,D25:N25,D28:N28")
Worksheets("Neu_Geschwister").rng.Sort Key1:=[D13], Order1:=xlAscending, Header:=xlGuess
End Sub
Vielen Dank im voraus für Antworten
Gruß
Klaus
Anzeige