Sortierung

Bild

Betrifft: Sortierung
von: Christoph Zahn
Geschrieben am: 04.08.2015 19:20:00

Hallo
ein Problem habe ich noch.
Ich möchte per VBA in einer Tabelle nach 3 Ebenen sortieren.


Sub Sortieren()
    Dim Ez As Long    'erste Zeile (hast Du vorgegeben)
    Dim Lz As Long    'letzte Zeile (wird ermittelt)
    Dim Spalte As String
    Spalte = "A"
    Ez = 2      'Vorgabe
    Lz = ActiveSheet.Cells(Rows.Count, Spalte).End(xlUp).Row  'ermitellt letzte Zeile
    ActiveSheet.Range(Spalte & Ez & ":M" & Lz).Select
        Selection.Sort Key1:=ActiveCell.Offset(0, 12), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, Key2:=ActiveCell.Offset(0, 7), Order2:=xlAscending, Header:= _
xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption2:=xlSortNormal, Key3:=ActiveCell.Offset(0, 1), Order2:=xlAscending, Header:= _
xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption2:=xlSortNormal
End Sub
leider funktioniert es nicht sobald ich eine 3. Ebene hinzufüge.
Laufzeitfehler 450
Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft
Mit 2 Ebenen ist es kein Problem, egal in welcher Konstellation ich sortieren lasse.
Vielleicht kann mir ja nochmal jemand helfen.
Gruß Christoph

Bild

Betrifft: AW: Sortierung
von: Sepp
Geschrieben am: 04.08.2015 19:47:02
Hallo Christoph,

ActiveSheet.Range(Spalte & Ez & ":M" & Lz).Sort _
  Key1:=ActiveCell.Offset(0, 12), _
  Order1:=xlAscending, _
  DataOption1:=xlSortNormal, _
  Key2:=ActiveCell.Offset(0, 7), _
  Order2:=xlAscending, _
  DataOption2:=xlSortNormal, _
  Key3:=ActiveCell.Offset(0, 1), _
  Order3:=xlAscending, _
  DataOption3:=xlSortNormal, _
  Header:=xlGuess, _
  MatchCase:=False, _
  Orientation:=xlTopToBottom

Gruß Sepp


Bild

Betrifft: AW: Sortierung
von: Christoph Zahn
Geschrieben am: 04.08.2015 20:08:23
Hallo Sepp
ich danke dir funktioniert alles so wie es soll.
Gruß Christoph

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Sortierung"