Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1128to1132
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
Inhaltsverzeichnis

Sortierung mit Cells

Sortierung mit Cells
Joni
Hi,
wie kriege ich es hin, dass ich die Sortierung mit Cells machen kann?
klappt nicht:
Sheets("Liste").Range(Cells(l, m), Cells(j - 1, m + 7)).sort Key1:=Range(Cells(l, m + 7)), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
funktioniert:
Sheets("Liste").Range(Cells(l, m), Cells(j - 1, m + 7)).sort Key1:=Range("H6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Auch mit .Adress hinten dran klappt es nicht. Ich kriege immer einen Fehler 400.
Danke für eure Hilfe.
Gruß Joni

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

Betreff
Benutzer
Anzeige
AW: Sortierung mit Cells
21.01.2010 00:19:47
Gerd
Hallo Joni!
Sheets("Liste") ist wohl zur Zeit "in". :-)
sort Key1:=Range(Cells(l, m + 7)), ...................
so:
sort Key1:=Cells(l, m + 7), ...................
sort Key1:=Range(Cells(l, m + 7), Cells(l, m + 7)), ................... wäre zwar ebenfalls möglich,
ist hier aber überflüssig.
Gruß
Gerd
AW: Sortierung mit Cells
21.01.2010 10:46:57
Joni
Hallo Gerd,
Daniel hat mich schon erleuchtet. Kommt auf das Gleiche raus.
Danke.
Gruß Joni
AW: Sortierung mit Cells
21.01.2010 00:30:33
Daniel
Hi
also zunächst einmal:
wenn du eine Range über 2 Cells definierst und das Sheet mit angibst, dann muss das Sheet auch vor den beiden Cells stehen, dh.
Range(Sheets(xy).Cells(a,b), Sheets(xy).Cells(c,d))

sollte der Code im Modul eines Tabellenblatts stehen, kann auch ggf das erforderlich sein:
Sheets(xy).Range(Sheets(xy).Cells(a,b), Sheets(xy).Cells(c,d))

das gleiche gilt für den SORT-Befehl. Wenn du bei SORT das Tabellenblatt angibst, dann musst du das bei den .KEY-Parametern wiederholen:
Sheets(xy).Range("A1:C100").Sort Key1:=Sheet(xy).Cells(1,1), ...
dein og. Code kann in beiden Fällen nur dann funktionieren, wenn das Sheet("Liste") aktiv ist. Falls ein anderes aktiv sein sollte, gibts Probleme.
jetzt zu dem Unterschied zwischen deinen beiden Versuchen:
im unteren Fall wird klar nach der Spalte H sortiert.
im oberen Fall hängt die Sortierspalte davon ab, welcher Wert in der Zelle Cells(l, m + 7) steht.
Exel nimmt den Inhalt dieser Zelle als Parameter für die Range-Funktion, dh das ganze kann nur funktionieren, wenn in Cells(l, m + 7) eine gültige Zelladdresse wie "H6" steht oder ein vorhandener Name.
Wenn du allerdings nach der Spalte m+7 sortieren willst, muss dein SORT-Befehl so aussehen:
Sheets("Liste").Range(Cells(l, m), Cells(j - 1, m + 7)).sort Key1:=Sheet("Liste").Cells(l, m + 7), order1:=...
Gruß, Daniel
Anzeige
AW: Sortierung mit Cells
21.01.2010 10:37:56
Joni
Hallo Daniel,
danke für deine Infos. Mir war soweit alles klar. Mein Fehler war das Range bei der Cells-Angabe des Key1.
Range nur bei fixer Angabe => Key1:=Range("H6")
kein Range bei relativer Angabe => Key1:=Sheets("Liste").Cells(l, m + 7)
Jetzt funktioniert es.
Nochmal Danke!
Gruß Joni

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige