Ich habe, ohne VBA vorher gekannt zu haben, angefangen mir einen Code zu schreiben/aus foren zusammenzuwürfen/mit logischem denken kopierte codes verändert.
(Soll heißen, ich bin ein Newb, solangs ansatzweise kompliziert wird, bitte Hintergrund erklären...Wobei ich ja immer noch fragen kann.)
Hat bisher gut geklappt. Der Code verarbeitet eingefügte Daten und trägt/ändert entsprechend Daten in eine andere Tabelle ein....Diese wird dann automatisch nach einer neuen Eintragung sortiert mittels:
Private Sub sort()
Range("G4:da1000").Select
ActiveWorkbook.Worksheets("Auktion").sort.SortFields.Clear
ActiveWorkbook.Worksheets("Auktion").sort.SortFields.Add Key:=Range("H5") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Auktion").sort.SortFields.Add Key:=Range("K5") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Auktion").sort.SortFields.Add Key:=Range("L5") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Auktion").sort.SortFields.Add Key:=Range("N5") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Auktion").sort
.SetRange Range("G4")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
(Code von "Makro aufzeichnen", und abgeändert) Mein Problem: der sortiert die vorher formatierten Zellfarben mit.
Bisher habe ich immer lang genug gesucht/nachgedacht, bis ich Lösungen für meine Probleme hatte. Ich habe aber jetz, nach zu langem Suchen (über ne Std.) noch immer nichts gefunden, was die Sort-Funktion nur den Inhalt sortieren lässt, oder in einem bestimmten Bereich die Formatierung festsetzt.
Danke im Vorraus