Hallo Freunde,

ich habe folgendes Problem. Ich möchte die erste Zeile (nicht Spalte) von links nach rechts aufsteigend sortieren (es sind auch leere Spalten vorhanden).
Nun sollen die Zeilen darunter natürlich mit sortiert werden (Markierung erweitern). In einigen dieser Zeilen sind schöne Ampeln vorhanden. Diese Formatierung wird jedoch nicht mitgenommen sondern bleibt in den Zellen bestehen. Gibt es hier eine Möglichkeit die Formatierung mitzunehmen?

Danke für eure Hilfe :)

 

Sub Sortieren()

    Rows("1:1").Select
    ActiveWorkbook.Worksheets("Tabelle2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Tabelle2").Sort.SortFields.Add Key:=Range("A1:CU1" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Tabelle2").Sort
        .SetRange Range("A1:CU57")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlLeftToRight
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub