Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro zum Sortieren / Markierung bleibt nicht

Forumthread: Makro zum Sortieren / Markierung bleibt nicht

Makro zum Sortieren / Markierung bleibt nicht
12.12.2006 13:12:11
Kay
Hallo zusammen,
möchte gerne eine Tabelle sortieren lassen per Makro (wird dann über Button ausgeführt). Hab ich per Recorder aufgezeichnet, funktioniert aber nur beim 1. mal ausführen, beim nächsten Mal ändert sich leider immer wieder der Bereich den Exel markiert (der aber immer gleich bleiben sollte)

Sub Name()
' Name Makro
' Makro am 12.12.2006 von KurzK002 aufgezeichnet
ActiveCell.Offset(-8, -6).Range("A1:L14").Select
Selection.Sort Key1:=ActiveCell, Order1:=xlAscending, Key2:=ActiveCell. _
Offset(0, 2).Range("A1"), Order2:=xlAscending, Header:=xlGuess, OrderCustom _
:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal
End Sub

Im Voraus herzlichen Dank für die Hilfe,
Kay
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Sortieren / Markierung bleibt nicht
12.12.2006 13:22:02
Matthias
Hallo Kay,
soll immer A1:L14 sortiert werden?
Dann so:

Range("A1:L14").Sort Key1:=ActiveCell, Order1:=xlAscending, Key2:=ActiveCell. _
Offset(0, 2).Range("A1"), Order2:=xlAscending, Header:=xlGuess, OrderCustom _
:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:= _
xlSortNormal, DataOption2:=xlSortNormal

Geht ganz ohne Markierung!
Gruß Matthias
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige