Hallo zusammen

Ich möchte eine Loop durch mehrere Ranges rückwärts laufen lassen und dabei jede Range einzeln selecten und etwas damit machen.

Ich habe in einer Zeile mehrere Ranges die ich mit einem Makro zum einen verschieben möchte aber auch noch anderes machen muss. Ich kann also nicht alles auf einmal anwählen und verschieben ect. sondern muss das mit jeder Range einzeln machen. Da ich es mit jeder Range einzeln machen muss, muss dies rückwärts geschehen. Denn wenn ich hier in der Beispieltabelle die erste Range um zwei Spalten nach rechts verschiebe, dann ist sie auf der Range 2 drauf und dann halbiert man Range 1 beim verschieben der Range 2.....

Mit folgendem Code ist ja klar das es vorwärts durch die Areas loopt:

Sub tsttest()
Dim ar As Range
For Each ar In Selection.Areas
    -> hier muss ich die einzelne Range/Area selecten können
    'Call Makro 
Next ar
End Sub

Und mit For i = Selection.Areas.Count To 1 Step -1 oder ähnlichem habe ich noch nichts fertig gebracht das annähernd klappt. Wenn dan loopt es rückwärts durch die einzelnen Zellen der ersten Range.

Ich wäre sehr froh wenn mir jemand helfen könnte:

Vielen Dank.