Anzeige
Archiv - Navigation
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sortierung

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortierung
04.08.2015 19:47:02
Sepp
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

Anzeige
AW: Sortierung
04.08.2015 20:08:23
Christoph
Hallo Sepp
ich danke dir funktioniert alles so wie es soll.
Gruß Christoph

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige