Mit folgendem Code markiere ich die Zeilen mit gleicher Nummer in Spalte intLastColumn + 1 mit gleicher Farbe. Nun will ich diese Zeilen mit gleicher Nummer in Spalte intLastColumn + 1 zusätzlich nach der Spalte intLastColumn + 2 aufsteigend sortieren.
For Each r In .Range(.Cells(2, intLastColumn + 1), .Cells(Rows.Count, intLastColumn + 1).End(xlUp))
If r.Row > 1 Then
If r <> r.Offset(-1) Then
b = Not b
End If
End If
.Range(.Cells(r.Row, 1), .Cells(r.Row, intLastColumn + 2)).Interior.Color = RGB(230, 230, 230) + b * RGB(50, 50, 50)
Next r
Wie muss ich den Code erweitern, ich kriege das nicht hin.
Vielen Dank und Gruss
Gregor