Alle folgenden Zellen markieren, bis leere kommen.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hey Matthias,
zunächst ein dickes Danke. Finde ich echt nett von Dir, daß Du Dir so viel Mühe gemacht hast.
Und das Ergebnis ist wirklich beeindruckend.
Allerdings habe ich einen Fehler gemacht. Und zwar in der Beschreibung des Problems.
In Deinem Makro gehst Du - meiner fälschlichen Darstellung zufolge natürlich zu Recht - davon aus, daß es sich immer um die gleichen Zellen handelt. Dem ist nicht so. Es handelt sich um eine fortlaufende Tabelle, welche ständig ergänzt wird. A1 (in diesem speziellen Fall B7) ist schon sehr lange passé. Sorry. Das war`s, was ich falsch beschrieben hatte.
Es ist also so, daß die Ausgangszelle immer variabel ist. Momentan steht der erste Wert in Zelle B863, daß derzeitige Ende der zu sortierenden Werte befindet sich in Zelle B883. Das kann sich aber ändern. Und zwar, indem etwas hinzugefügt oder aus dem bestehenden Datensatz herausgenommen wird. Dann entsteht eine leere Zelle innerhalb des ganzen Blocks. Deshalb auch die Sache mit den zwei aufeinanderfolgenden Leerzellen. Das ist eine der Erklärungen dafür. Die andere ist, daß eben bei erreichen von zwei Leerzellen nicht weiter geprüft werden soll. Stichwort hierbei: Ende des Datensatzes. Was die Markierung der Ausgangszelle betrifft (derzeit B863), also der Zelle, von der aus die Sortierung des aktuellen Datensatzes erfolgen soll, so ist diese notwendig, da eben nur das, was unterhalb der Ausgangszelle plus dieser steht, sortiert werden soll, und nicht die ganze Tabelle mit allen belegten Zelle oberhalb der Ausgangszelle. Nur der jeweilige Datensatz (momentan B863 bis B883) soll komplett markiert und danach in sich selbst sortiert werden.
Ich hoffe, das ist jetzt nicht zu kompliziert zu verstehen.
Dein Makro, wie gesagt, macht das soweit alles richtig. Nur A1 stimmt eben noch nicht.
Sub Sort_A() Dim x% For x = 1 To ActiveSheet.UsedRange.Rows.Count If Cells(x + 1, 1) = "" And Cells(x + 1, 1) = "" Then Exit For Next Range("A1:A" & x).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub Ich kann das >Range("A1:A"Range("A1") Vielleicht kannst Du mir in diesem Punkt noch helfen. Ich denke, dann dürfte alles okay sein.
Bis dann...
@_@

Sub b() Dim x% With ActiveCell For x = .Row To ActiveSheet.UsedRange.Rows.Count If Cells(x + 1, .Column) = "" And Cells(x + 2, .Column) = "" Then Exit For Next .Cells.Resize(x - 1).Sort Key1:=.Cells, Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End With End Sub

Sub UsedRange_Schleife() Worksheets.Add Cells(10, 2).Resize(2, 4) = "X" Cells(9, 1).Select Cells(10, 4) = ActiveCell.Row & " To " & ActiveSheet.UsedRange.Rows.Count Cells(11, 4) = ActiveSheet.UsedRange.Address(0, 0) MsgBox "For lngZeile = " & Cells(10, 4) End Sub

Hey Teddy
Erich hat aber wirklich Recht !!
Glaub mir!
Mit ActiveSheet.UsedRange.Rows.Count war ich zu vorschnell.
Mach bitte Folgendes(wirklich so wie ich es Dir schreibe !)
Erstelle bitte eine neue Mappe mit 2 Tabellen
In Tabelle1 schreibst Du bitte ab A1 bis A10 irgendwelche Werte.
In Tabelle2 schreibst Du bitte ab A2 bis A10 irgendwelche Werte. Die Zelle(A1) lässt Du bitte in Ruhe!!!
Und nun ein Modul mit folgendem Code:

Sub GlaubsRuhig()
MsgBox ActiveSheet.UsedRange.Rows.Count
End Sub

Wechsle in die Tabelle1 und starte das Makro. Du erhälst als Ergebnis 10
Wechsle in die Tabelle2 und starte das Makro Du erhälst als Ergebnis 9
Nun wirst Du feststellen, das Erich tatsächlich Recht hat.
Das Phänomen(was keins ist) täuscht Dich !!
Wenn Du nun in Tabelle2 die Zelle(A1) einfärbst und dannach wieder "entfärbst"
und das Makro nochmal startest erhälst Du nun auch als Ergebnis 10
Warum ist das so ?
UsedRange ist der benutze Bereich der Tabelle
Ist die Tabelle also neu und Du beginnst in A2 tritt der Effekt ein den Erich versucht hat Dir zu erklären. Dann beginnt UsedRange in A2
ActiveSheet.UsedRange.Rows.Count ist dann die letzte Zeile im UsedRange
Somit wäre A2 die Zeile(1) im UsedRange und A10 ware die Zeile(9)
Sobald Du einmal die Zelle(A1) mit einbezogen hast (das hast Du anscheinend in Deiner Tabelle einmal getan - egal in welcher Form), dann gehört die Zelle mit zum UsedRange
Ich hoffe ich könnte das aufklären.
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

	A	B
1	95	87
2	77	21
3	76	23
4	65	43
5	52	44
6	33	52
7	13	58
8	11	62
9	7	67
10	7	2
11	4	9
12
13
14	32	17
15	26	84
16
17
18
19
20
21
22		55
23	1	82

	A	B
10	7	2
11	4	9
12		17
13		84
14	32
15	26
16

	A	B
9	7	67
10	7	9
11	4	2
12
13
14	32	1
15	26	84

	A	B
9	7	67
10	7	9
11	4	1
12		2
13		84
14	32
15	26

Alle folgenden Zellen markieren, bis leere kommen.

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B
1	95	87
2	77	21
3	76	23
4	65	43
5	52	44
6	33	52
7	13	58
8	11	62
9	7	67
10	7	2
11	4	9
12
13
14	32	17
15	26	84
16
17
18
19
20
21
22		55
23	1	82

	A	B
1	95	87
2	77	21
3	76	23
4	65	43
5	52	44
6	33	52
7	13	58
8	11	62
9	7	67
10	7	2
11	4	9
12
13
14	32	17
15	26	84
16
17
18
19
20
21
22		55
23	1	82

Alle folgenden Zellen markieren, bis leere kommen.

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

	A	B
1	95	87
2	77	21
3	76	23
4	65	43
5	52	44
6	33	52
7	13	58
8	11	62
9	7	67
10	7	2
11	4	9
12
13
14	32	17
15	26	84
16
17
18
19
20
21
22		55
23	1	82