Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Löschen jeder zweiten Zeile

Forumthread: Löschen jeder zweiten Zeile

Löschen jeder zweiten Zeile
29.04.2003 16:04:32
Andy
Tach zusammen,

möchte gern ab Beginn eines Blattes jede zweite Zeile löschen. Frage: mit Zähler oder gibts was besseres, wenn ja was.

Vielen Dank im Voraus,
Andyyy

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Löschen jeder zweiten Zeile
29.04.2003 16:28:34
Grüni

Lösung ohne Makro

Trage in der nächsten freie Spalte 1 Zeile A und in Zeile 2 B ein, kopiere es bis zum Ende der Daten, lege einen Filter drüber, filtere B, markiere alle sichtbaren Zeilen und lösche diese, Filter rausnehme und nun steht nur noch
die erste ursprüngliche Zeile

Re: Löschen jeder zweiten Zeile
29.04.2003 16:30:11
Forum

Hallo Andy

vom Grundsatz macht man Löschen von hinten nach vorne ist einfacher.

Am schnellten geht es falls eine Spalte komplett gefüllt ist. In diesem Fall Eine For Next Schleife mit Schrittweit 2 und nur den Inhalt der Zelle löschen und dann zum Schluß alle Zeilen löschen die in dieser Spalte leer sind. So wie sich das liest wolltest Du ja nur ein Ansatz.

Gruß Hajo
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel


Anzeige
Re: Löschen jeder zweiten Zeile
29.04.2003 16:31:58
Martin Beck

Hallo Andy,

hier eine Alternative ohne Schleife:

Gruß
Martin Beck

Re: Löschen jeder zweiten Zeile
29.04.2003 16:44:23
Andy

Hallo,

naja Ansatz mit Code wäre auch nicht schlecht...zumindest für die schleife...

grüße, sebastian

Super,das klappt,DANKE an alle.
29.04.2003 16:48:59
Andy

ot

Anzeige
DOCH NOCH WAS
29.04.2003 16:57:48
Andy

Hallo noch mal,

mein Problem ist viel leichter. Ich muss einfach jede Zeile löschen, die in A keinen Wert hat.

Hatr jemand da nen Source zu?

Danke, Andy

so gehts...
29.04.2003 17:16:31
Andy

habs schon selber geschafft:

For z = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(z, 1).Value = 0 Then Rows(z).Delete
Next z

Anzeige
und so ohne Schleife
29.04.2003 17:20:24
Martin Beck

Hallo Andy,

bei großen Tabellen ist

erheblich schneller.

Gruß
Martin Beck

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige