Sortieren Key1= Ausgewählte Zelle
15.12.2007 14:09:07
Dirk(KR)
Ich brauche nach langer Zeit mal wieder Hilfe.
In der Recherche bin ich leider nicht fündig geworden.
Ich Möchte in Tabelle1 im Bereich A:ID nach der zur Zeit Markierten Zelle Sortieren.
Mit festen Vorgaben ist das ja auch kein Problem, doch so wie ich es will, da komme ich nicht weiter.
Ich klicke z.B. die Zelle A30 an, dann meinen Button und möchte, das die Spalten nun nach nach der angeklickten Zelle sortiert wird.
Sub SortSel()
Columns("A:ID").Select
Selection.Sort Key1:=Range(WAS MUSS HIER STEHEN?), Order1:=xlAscending, Key2:=Range("AM4") _
_
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlLeftToRight, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
End Sub
Gibt es irgendeine Möglichkeit ?
Für eure schnelle Hilfe bin ich euch sehr Dankbar.
LG
Dirk(KR)
Anzeige