Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sortierung für die markierte Zeilen ?

Sortierung für die markierte Zeilen ?
24.07.2007 19:13:00
Selma
Hallo Leute,
wie kann ich diesen Makro (Sortierung) für beliebig markierten Zeilenbereich anwenden?
Ich habe es für Zeilenbereich 244:268 aufgezeichnet.
Was muss ich ändern ?

Sub Makro2()
Rows("244:268").Select
Selection.Sort Key1:=Range("H244"), Order1:=xlDescending, Key2:=Range( _
"C244"), Order2:=xlDescending, Key3:=Range("I244"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
End Sub


Vielen Dank im Voraus.
Liebe Grüße
Selma

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortierung für die markierte Zeilen ?
24.07.2007 19:15:02
Hajo_Zi
Hallo Selma,
lösche die Zeile Rows("244:268").Select

AW: Sortierung für die markierte Zeilen? Korrektur
24.07.2007 19:18:38
Hajo_Zi
Hallo Selma,

Sub Makro2()
Selection.Sort Key1:=Range("H" & ActiveCell.Row), Order1:=xlDescending, Key2:=Range( _
"C" & ActiveCell.Row), Order2:=xlDescending, Key3:=Range("I" & ActiveCell.Row), Order3:= _
xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
End Sub


Gruß Hajo

Anzeige
AW: Sortierung für die markierte Zeilen? Korrektur
24.07.2007 21:36:47
Selma
Hallo Hajo,
der Code bleibt hängen.
Selection.Sort Key1:=Range("H" & ActiveCell.Row), Order1:=xlDescending, Key2:=Range( _
"C" & ActiveCell.Row), Order2:=xlDescending, Key3:=Range("I" & ActiveCell.Row), Order3:= _
xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
LG
Selma

AW: Sortierung für die markierte Zeilen? Korrektur
24.07.2007 21:42:00
Horst
Hi,

Sub Makro2()
Selection.Sort Key1:=Range("H" & ActiveCell.Row), Order1:=xlDescending, Key2:=Range( _
"C" & ActiveCell.Row), Order2:=xlDescending, Key3:=Range("I" & ActiveCell.Row), Order3:= _
xlAscending, Header:=xlGuess
End Sub


mfg Horst

Anzeige
AW: Sortierung für die markierte Zeilen? Korrektur
24.07.2007 22:27:43
Selma
Danke Horst
LG
Selma

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige