Sortierung
04.08.2015 19:20:00
Christoph
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
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
Anzeige