Benutzerdefiniertes Sortieren in Excel 2010

Tag,
Ich habe eine Excell Tabelle, die bereits so aussieht, wie ich es haben möcht (Autofilter, Formate…etc.)
Nun möchte ich noch die vorhandenen Reihen benutzerdefiniert nach Spalte G, wert, aufsteigend sortieren.

Ich hab also versucht etwas aufzuzeichnen und anschließend versucht den Bereich zu verändern. deas war keine gute Idee - funktioniert nicht.

Meldung: Die Sort-Methode des Range Objektes konnte nicht ausgeführt werden.
Laufzeitfehler:1004

Bitte um Hilfe.

Das ist was ich habe:

With ActiveSheet.Range(Rows(lZeile - 1), Rows(eZeile + 2)).Select
ActiveSheet.Range(Rows(lZeile - 1), Rows(eZeile + 2)).Sort
.SetRange Range
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Gruß Christian

http://bfy.tw/73mg

Moin,

anstatt

   ActiveSheet.Range(Rows(lZeile - 1), Rows(eZeile + 2)).Sort

nur

   .Sort

Der .Sort ist schon durch With qualifiziert. Wahrscheinlich ist der Select unnötig.

Gruß
Ralf

ps: ezeile und lzeile müssen natürlich stimmen, dh innerhalb der Range liegen.