Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
828to832
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
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige