Office: for each rückwärts

treets · 12. Januar 2021

Hiho Folks!

hat jemand eine Idee wie man am einfachsten einen Zellbereich rückwärts durchläuft? Also

Code:

for each zelle in bereich (rückwärts)
...
next(bzw. before)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für Antworten/Tipps!!

Treets

Es wurde in diesem Beitrag der Code für dieses Forum angepasst.

:)

itz · 12. Januar 2021

Hallo treets,

angenommen Du hast einen Bereich definiert der auf den schönen Namen "bereich" hört, dann kannst Du ihn zeilenweise so durchlaufen lassen:
Code:

For i = bereich.Rows.Count To 1 Step -1
For j = bereich.Columns.Count To 1 Step -1
'deine Anweisungen
Next j
Next i
next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Falls der Durchlauf spaltenweise erfolgen soll muss halt die j-Schleife nach außen.

Steffan.

Es wurde in diesem Beitrag der Code für dieses Forum angepasst.

treets · 18. Dezember 2002

Danke für den Tipp! Aber mache es jetzt per Do While-Schleife und Offset(-1,0).

Dachte nur, es gäbe vielleicht eine Option die For Each-Schleife rückwärts durchlaufen zu lassen.

Ciao,
Treets

jinx · 18. Dezember 2002

Moin, treets,

meinst Du nicht, dass dies dann in der OH zu For Each...Next vermerkt worden wäre? Die negative Schrittweise ist die im Zusammenhang mit Schleifen überwiegend eingesetzte Methode...

User · 25. September 2008

in VB .NET geht das so:

Code:

' zuerst Feld umkehren
Array.Reverse(bereich)

for each zelle in bereich
...
next

' ggf. Feld wieder zurück umkehren
Array.Reverse(bereich)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

OfficeUser · 25. September 2008

Hey Treets,

habe keine Ahnung ob Du meine "fast zeitnahe" *wink.gif* Antwort noch liest, aber vielleicht interessiert es ja auch jemand anderen :

Wie jinx bereits angemerkt hat : Ein "echtes" reversives Durchlaufen einer FOR EACH...NEXT - Schleife gibt es in VBA nicht (danke aber an Mat000 für den VB-Hinweis !), aber man kann das in einigen Fälle simulieren. Hier ein paar Beispiele :

VBA-Code:
'Beispiele für FOR....NEXT :
'26.09.2008, noNet - www.excelei.de (z.Zt. nicht aktiv !)

Sub ForNextVorwaertsZellen()
    'Gibt die Einzeladressen der markierten Zellen in der richtigen Reihenfolge aus :

    'Lösung per FOR Each...Next - Verwendung der Objektvariablen "rngZelle"

    Dim rngZelle As Range
    Dim strAdressen As String

    For Each rngZelle In Selection
        strAdressen = strAdressen & rngZelle.Address & ", "
    Next

    MsgBox strAdressen, , "Markierte Zellen"

End Sub

Sub ForNextRueckwaertsZellen()
    'Gibt die Einzeladressen der markierten Zellen in der umgekehrten Reihenfolge au s :

    'Lösung per FOR...Next - Verwendung der Zählvariablen "lngZ" (für Zellen)

    'und "intA" (für mehrere diskontinuerliche - also nicht zusammenhängende - Bereiche)

    Dim lngZ As Long, intA As Integer
    Dim strAdressen As String

    For intA = Selection.Areas.Count To 1 Step -1
        For lngZ = Selection.Areas(intA).Count To 1 Step -1
            strAdressen = strAdressen & Selection.Areas(intA)(lngZ).Address & ", "
        Next
    Next

    MsgBox strAdressen, , "Markierte Zellen"

End Sub

Sub ForEachRueckwaertsSheets()
    'Gibt die Namen aller Tabellennlätter in der umgekehrten Reihenfolge aus :

    'Lösung per FOR...Next - Verwendung der Objektvariablen "objSheet"

    'Referenzierung des Sheets per .INDEX

    Dim objSheet As Worksheet
    Dim strNamen As String

    For Each objSheet In Sheets
        strNamen = strNamen & Sheets(Sheets.Count - objSheet.Index + 1).Name & ", "
    Next

    MsgBox strNamen, , "Tabellenblätter"
End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Office: for each rückwärts

for each rückwärts

for each rückwärts

for each rückwärts

for each rückwärts - Similar Threads - for each rückwärts

For Each Next läuft nur einmal durch

For Each Schleifen als Struktogramm

For Each Schleife Anstatt ActiveSheet festen Tabellenblattnamen benutzen

For Each Schleife abbrechen mit IF

For Each Schleife, Zellen von zwei Bereichen vergleichen

Recordset mit For each durchlaufen

VBA: For Each Schleife mit mehreren Bedingungen