Thema Datum  Von Nutzer Rating
Antwort
02.02.2024 11:48:25 BOY
NotSolved
Blau Wenn Ich Dich richtig verstanden habe...
 02.02.2024 12:20:16 Mase
NotSolved
02.02.2024 13:33:53 BOY
NotSolved
02.02.2024 15:05:03 Mase
NotSolved
02.02.2024 16:42:18 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
02.02.2024 12:20:16		 Views:
137		 Rating:
     
Antwort:
  Ja
Thema:
Wenn Ich Dich richtig verstanden habe...

kannst Du hiervon die verschiedenen "Richtungen" ableiten:

 

 

Code:

Sub main()

    Dim i       As Long
    Dim ii      As Long
    
    Dim c       As Excel.Range
    Dim rng     As Excel.Range
    Dim areaRow As Excel.Range
    
    '*** Areas referenzieren
    Set rng = Union(Range("area1"), Range("area2"), Range("area3"))
    
    '*** Areas durchlaufen (vorwärts)
    For i = 1 To rng.Areas.Count Step 1
        '*** Zeile je Area (top/down)
        For Each areaRow In rng.Areas(i).Rows
            '*** Zellen je AreaZeile (rückwärts)
            For ii = areaRow.Cells.Count To 1 Step -1
                Debug.Print areaRow.Cells(1, ii).Value
            Next ii
        Next areaRow
    Next i
    
    
End Sub

 

 

 

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
02.02.2024 11:48:25 BOY
NotSolved
Blau Wenn Ich Dich richtig verstanden habe...
 02.02.2024 12:20:16 Mase
NotSolved
02.02.2024 13:33:53 BOY
NotSolved
02.02.2024 15:05:03 Mase
NotSolved
02.02.2024 16:42:18 Mase
NotSolved