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

Sortieren

Sortieren
19.11.2007 12:11:00
Walter
Hallo Zusammen,
brauch noch einmal Unterstützung.
Ich habe gerade dieses Makro aufgezeichnet:
Range("E10:E60").Select
Selection.Sort Key1:=Range("E10"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("EJ8").Select
Nun das Problem:
Wenn ich die active Zelle z.b. F10 stehe, soll das Makro Range("F10:F60").Select
nach Range("F10"),
ausgeführt werden.
Kann man dies mit einem Makro durchführen, wenn nicht muß ich halt mehrer Button erstellen,
mfg Walter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren
19.11.2007 12:35:57
Mag
Hi,
so?:
Dim spalte As Long
spalte = ActiveCell.Column
Range(Cells(10, spalte), Cells(60, spalte)).Select
Selection.Sort Key1:=Range(Cells(10, spalte).Address), Order1:= ...
Gruss

AW: Sortieren
19.11.2007 12:43:42
Mag
... Dim spalte As Integer
sollte bei max. 256 Spalten reichen ...

AW: Sortieren
19.11.2007 12:42:00
Kay
Hallo,
vieleicht so:

Sub sort()
Range(Cells(10, ActiveCell.Column), Cells(60, ActiveCell.Column)).sort _
Key1:=Cells(10, ActiveCell.Column), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("EJ8").Select
End Sub


MfG
Kay

Anzeige
Hallo Mag und Kay -)
19.11.2007 12:50:34
Walter
Hallo Ihr Zwei,
das klappt PRIMA, danke
mfg Walter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige