Spalten und Zellenindex übergeben
28.08.2006 15:10:54
Werner
mit dem nachfolgenden Makro wird gleich zu Anfang der zu sortierende Bereich festgelegt. Das Gute daran ist, dass der Bereich relativ bleibt und nicht durch feste Werte angegeben werden muss.
Allerdings sollte die Spalte, nach der sortiert werden soll und auch deren erste Zelle relativ bestimmt werden.
Eigentlich steht beides schon fest sobald ich das Makro starte, das Range müsste nur noch hierher übergeben werden: Key1:=Range("?") indem die Spalte der zum Startzeitpunkt des Makros ausgewählten Zelle (zB. G)und die
Zellennummer(zB. 12) nach dem Selection.End(xlUp).Select übergeben wird.
Sub Autosortieren()
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("E10"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End Sub
Hat jemand eine Idee?
Grüße aus Erfurt,
Werner.