Spalten spiegeln

[Fennek]

für die in #3 gezeigte Datei:

Code:

Sub F_en()
Dim AR As Range

'GoTo NN
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 1) < Cells(i - 1, 1) Then Cells(i, 7) = "a"
Next i
NN:
For Each AR In Columns(7).SpecialCells(2, 2).Areas
    AR.EntireRow.Select
    Selection.Sort Cells(AR.Cells(1).Row, 1), xlAscending
Next AR
End Sub

[Kilpeic]

Super funktioniert fast perfekt, nur leider bekommt er an einigen stellen einen Zahlendreher rein.

Also eigentlich immer am Anfang, da fügt er Zahlenreihen ein von anderen Messfahrten.
Wie man hier sieht die 1600 in Zeile 381, ist bei den anderen Spiegelungen dann identisch, und er vergisst die letzte Reihe wie man in Zeile 380 sieht

[snb]

@Fen

Arrays, arrays

Code:

Sub M_snb()
  sn = Cells(1).CurrentRegion.Resize(, 7)

  For j = 3 To UBound(sn)
    If sn(j, 1) < sn(j - 1, 1) Then sn(j, 7) = "a"
  Next
  Cells(1).CurrentRegion.Resize(, 7) = sn
 
  For Each it In Columns(7).SpecialCells(2).Areas
      it.Offset(, -6).Resize(, 7).Sort it.Cells(1).Offset(, -6)
  Next
  columns(7).clearcontents
End Sub

[Kilpeic]

Bei dem Code habe ich das gleiche Problem. =(

[Fennek]

versuche beim Sortieren "Header" auf xlNo zu setzen.

[Fennek]

Im Beispiel geht es so:

Code:

Sub F_en()
Dim AR As Range

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    zz = VBA.Round(Cells(i, 2) / 400, 0)
    If zz Mod 2 <> 0 Then Cells(i, 7) = "a"    
Next i

For Each AR In Columns(7).SpecialCells(2, 2).Areas
    
    Range(AR, AR.Offset(, -6)).Sort AR.Cells(1).Offset(, -6), xlAscending, , , , , , xlNo
    
Next AR
End Sub

[Kilpeic]

Super Danke euch, haben's hin bekommen =)