Alle folgenden Zellen markieren, bis leere kommen.

T. · 2012-10-06T18:29:45+00:00

Hallo Ekschpärt`n, Frage an euch: Von einer aktiven Zelle aus sollen alle danach folgenden, in denen ein Wert enthalten ist, solange markiert werden, bis zwei aufeinanderfolgende leere Zellen kommen. Also beispeilsweise von A1 ab bis A9 durchmarkieren (neun Zellen markiert), um diese zu sortieren und A10 und A11 nicht mehr in die Markierung miteinbeziehen, da diese vorerst leer sind. Falls später in die Zellen A10 und A11 etwas reingeschrieben wird, sollen diese beiden Zellen beim nächsten Markierungsvorgang natürlich mitberücksichtigt werden. Klar soweit? @_@ Wie kann ich das per Makro realisieren? Ich gehe mal davon aus, daß eine If Schleife nötig ist, welche von der ersten aktiven Zelle an prüft, ob in den folgenden etwas enthalten ist oder nicht und das dann solange macht, bis zwei leere Zellen gefunden werden (das mit den zwei aufeinanderfolgenden leeren Zellen hat einen ganz bestimmten Grund). Geht das mit IsEmpty - Then - GoTo? Ich sage schon mal vielen herzlichen Dank für Vorschläge usw. Ô_Ô

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...
@_@

Hi fast Unbekannter (oder Tee?),
"Nenne Deinen Vornamen, damit man Dich ansprechen kann." ist eine freundliche Aufforderung,
die Hans W. Herber, der Betreiber dieses Forums, äußert. Du kannst dem nachkommen oder auch nicht.
Und die kannst Antworten bekommen oder nicht...
Zu:
"UsedRange fängt definitiv nicht mehr in Zeile 1 an. Es funktioniert aber dennoch...":
Ich weiß nicht, was du dir da vorstellst, aber das stimmt einfach nicht.
Lass doch mal in irgend einer Mappe das folgende Makro laufen. Es erstellt ein neues Blatt,
das du danach einfach wieder löschen kannst.
Das Makro zeigt dir, wie hier deine For-Schleife liefe (beser: nicht liefe):


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

Zu
"was ich nicht verstehe, ist, daß die Zeilenmarkierung nicht dargestellt, also nicht sichtbar ist":
Das mag daran liegen, dass überhaupt nicht markiert wird. Da haben Hajo und dia anderen völlig recht:
Für den Sort (wie für die meisten anderen Aufgaben) ist Markierung (Select) überflüssig, meist eher störend.
Daran ändert es auch nichts, wenn du schreibst: "Die Markierung ist durchaus nötig. Glaube mir..."
In dieser Sache glaubt dir hier (hoffentlich) niemand. :-)
Wenn man einen Bereich sortieren will, schreibt man Bereich.Sort..., das ist geschickter als
Bereich.Select
Selection.Sort...
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

	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.

Forumthread: Alle folgenden Zellen markieren, bis leere kommen.

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Excel Zellen bis zum Ende markieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

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.

Forumthread: Alle folgenden Zellen markieren, bis leere kommen.

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Excel Zellen bis zum Ende markieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

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