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
|