Ich habe bei Excel unter „Sortieren“ 3 Ebenen angelegt, gespeichert und danach sortiert.
Nun möchte ich diese Einstellung auf andere Reiter übertragen ohne jedes mal neu alle drei Ebenen anlegen zu müssen.
Geht so was?
Hallo Mk,
Ich habe bei Excel unter „Sortieren“ 3 Ebenen angelegt,
gespeichert und
was hast du gespeichert? Die mappe? Oder kann man in XL2010 die Sortierungseinstellungen abspeichern, in XL 2007 sah ich nix davon.
Nun möchte ich diese Einstellung auf andere Reiter übertragen
ohne jedesmal neu alle drei Ebenen anlegen zu müssen.
Geht so was?
Ich glaube nicht, nicht mit den normalen Excelmenues.
Gruß
Reinhard
Hallo Reinhard,
Hallo Mk,
Ich habe bei Excel unter „Sortieren“ 3 Ebenen angelegt,
gespeichert undwas hast du gespeichert? Die mappe? Oder kann man in XL2010
die Sortierungseinstellungen abspeichern, in XL 2007 sah ich
nix davon.
gespeichert war wohl der falsche Ausdruck. Habe die drei Ebenen eingerichtet und dann sortiert. Und dann ist die Sortierung ja automatisch gespeichert. (d.h. wenn ich später die Datensätze um neue Daten ergänze und das ganze dann erneut nach den selben Kriterien sortieren möchte, brauche ich nur noch auf Sortieren klicken. Fertig.
Nun möchte ich diese Einstellung auf andere Reiter übertragen
ohne jedesmal neu alle drei Ebenen anlegen zu müssen.Geht so was?
Ich glaube nicht, nicht mit den normalen Excelmenues.
Hmmm, schade…
Gruß
Reinhard
Aber schon mal vielen Dank
Gruß
MK
Hallo mk2000,
mit vba geht´s. Sogar auf verschiedene Arten.
Du könntest Deine Sortier-Eingaben aufzeichnen und den entstandenen Code anpassen. Damit bist Du aber nicht flexibel.
Andere Möglichkeit:
Den hier stehenden Code benutzen. Wenn Du Deine Tabelle oder die Konstanten im Code ( R1 und C1 ) anpasst, kannst Du damit nach Belieben sortieren, in allen Tabellen.
Dazu müsstest Du allerdings den Cursor nacheinander in die entsprechenden Spalten stellen ( Reihenfolge umgekehrt gegenüber der dreifachen Sortierung, die Du jetzt benutzt hast ).
Sub sortieren_nach_aktueller_Spalte_2003()
'Dieses Makro sortiert alle belegten Zellen
'unterhalb der letzten ÜberschriftenZeile nach
'der Spalte, in der der Cursor bei Auslösung steht.
'Vorher werden alle ausgeblendeten Zellen eingeblendet und Filter zurückgesetzt.
'Voraussetzung: Überschriften und Konstanten in Zeile 1 bis 8 ( werden nicht mitsortiert )
’ Spalten vor c1 werden ebenfalls nicht mitsortiert.
If Cells(1, 20) = 0 Then Cells(1, 20) = 9
If Cells(1, 21) = 0 Then Cells(1, 21) = 1
R1 = Cells(1, 20) ’ erste DatenZeile, ggf. anpassen
C1 = Cells(1, 21) ’ erste DatenSpalte, ggf. anpassen
’ r1=9:Überschriften NUR OBERHALB Zeile 9!!!
’ c1=4:Steuerungs-Spalten NUR VOR Spalte 4!!!
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
LR = ActiveCell.SpecialCells(xlLastCell).Row
LC = ActiveCell.SpecialCells(xlLastCell).Column
AR = ActiveCell.Row
AC = ActiveCell.Column
Rows(R1 - 1).AutoFilter
Rows(R1 - 1).AutoFilter
Cells.EntireColumn.Hidden = False
Cells.EntireRow.Hidden = False
Range(Cells(R1 - 1, C1), Cells(LR, LC)).Select
Selection.Sort Key1:=Range(Cells(R1, AC), Cells(LR, AC)), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Cells(AR, AC).Select
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Freundliche Grüße
Thomas