Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
896to900
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
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nach sortieren in letzte aktive Zeile springen

Nach sortieren in letzte aktive Zeile springen
15.08.2007 11:41:00
chris58
Hallo !
Kann mir wer helfen, ich habe dieses Makro endlich mit dem Makrorecorder aufgenommen. Nur kann ich nicht definieren, wie, wenn die Sortierung abgeschlossen ist, der Curser in die letzte aktive Zeile in Spalte A springt. Bitte um Hilfe
chris58

Sub sortiern()
' sortiern Makro
' Makro am 03.08.2007 von admin aufgezeichnet
Range("B25").Select
Range("A3:M5000").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach sortieren in letzte aktive Zeile springen
15.08.2007 11:49:02
Renee
Hi Chris,

Sub sortiern()
ActiveSheet.Range("A3:M5000").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveSheet.Cells(ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row, 1).Activate
End Sub


Greetz Renee

AW: Nach sortieren in letzte aktive Zeile springen
15.08.2007 12:01:00
chris58
Danke für die schnelle Hilfe
Nochmals danke
chris58
Anzeige

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige