Thema Datum  Von Nutzer Rating
Antwort
08.05.2022 12:51:39 Dan
NotSolved
Blau Reversing Odd Rows
08.05.2022 14:46:08 ralf_b
Solved
08.05.2022 19:58:35 Dan
NotSolved
09.05.2022 10:30:24 Gast36644
NotSolved
09.05.2022 19:52:22 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b
Datum:
08.05.2022 14:46:08
Views:
502
Rating: Antwort:
 Nein
Thema:
Reversing Odd Rows
Sub test()
Dim rng As Range
Dim arr
Dim arr2
Dim i As Long, cnt As Long
For Each rng In ActiveSheet.UsedRange.Rows
    If  WorksheetFunction.IsOdd(rng.Row) Then
       arr = rng
       ReDim arr2(1 To 1, 1 To UBound(arr, 2))
       cnt = 1
       For i = UBound(arr, 2) To 1 Step -1
          arr2(1, cnt) = arr(1, i)
          cnt = cnt + 1
       Next
       rng = arr2
    End If
Next

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
08.05.2022 12:51:39 Dan
NotSolved
Blau Reversing Odd Rows
08.05.2022 14:46:08 ralf_b
Solved
08.05.2022 19:58:35 Dan
NotSolved
09.05.2022 10:30:24 Gast36644
NotSolved
09.05.2022 19:52:22 ralf_b
NotSolved