Viele Zeilen nach Spalten sortieren
Andre
ich muss mich mal wieder an das beste Excel-Forum der Welt wenden - wer kann mir helfen:
Ich möchte Daten nach Spalten (nach selbstdefinierten Kriterien, Reihenfolge E*, H*, K*, N*) sortieren. Für eine Zeile beherrsche ich das über Daten/Sortieren/Optionen/Spalten sortieren - ABER: Hier kann ich immer nur EINE Zeile sortieren. Ich möchte aber VIELE Zeilen sortiert haben, hier als Beispiel mit zwei Zeilen:
Ausgangslage:
HF 300 ES 100 HG 200 KR 500 NN 800
GH 2000 FB 100 KK 5000 NR 8080 FF 9000
Gewünschtes Resultat:
ES 100 HF 300 HG 200 KR 500 NN 800
FB 100 FF 9000 GH 2000 KK 5000 NR 8080
Kann man das irgendwie ohne VBA lösen? Falls nicht: Ich habe die Operation einmal als Makro aufgezeichnet:
Sub aszz()
' aszz Makro
Range("A7:F7").Select
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Tabelle1").Sort.SortFields.Add Key:=Range("A7:F7") _
, SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="E*,K*,A*,N*" _
, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Tabelle1").Sort
.SetRange Range("A7:F7")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub
Kann mir bitte bitte jemand helfen, dies auszuweiten, damit alle Zeile der Datei entsprechend bearbeitet werden? Das wäre super!!
Herzlichen Dank im voraus,
Andre