Thema Datum  Von Nutzer Rating
Antwort
Rot Loop durch Areas rückwärts
 31.08.2023 11:53:05 Julaka
NotSolved
31.08.2023 12:17:03 Mase
NotSolved
01.09.2023 11:21:04 Julaka
NotSolved
01.09.2023 13:12:11 Mase
NotSolved

Ansicht des Beitrags:
Von:
Julaka		 Datum:
31.08.2023 11:53:05		 Views:
396		 Rating:
     
Antwort:
  Ja
Thema:
Loop durch Areas rückwärts

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.....

  Range 1   Range 2         Range 3  
                       
                       

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.

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Loop durch Areas rückwärts
 31.08.2023 11:53:05 Julaka
NotSolved
31.08.2023 12:17:03 Mase
NotSolved
01.09.2023 11:21:04 Julaka
NotSolved
01.09.2023 13:12:11 Mase
NotSolved