Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
720to724
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

jede 2. und 3. Zeile löschen!

jede 2. und 3. Zeile löschen!
20.01.2006 14:07:16
benny
Hi!
Ich hab ne Frage:
Hab hier ne ziemlich lange Excel-Auswertung; um die 2500 Zeilen. Allerdings sind zu jedem aufgelisteten Projekt 3 Zeilen ausgewertet worde, so dass ich 2 von 3 immer löschen müsste um ordentlich weiterarbeiten zu können. Manuell ist das ziemlich mühsam, deshalb: Wie kann ich nur jede 3. Zeile stehen lassen bzw. von 3 Zeilen jeweils die ersten beiden löschen?
DANKE!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: jede 2. und 3. Zeile löschen!
20.01.2006 14:14:59
=Peter=
Hallo Benny,
so als Idee: in einer Hilfsspalte (z.B. A) in A1 eine 1, in A2 eine 2 und in A3 eine 3 und soweit wie notwendig nach unten kopieren.
Dann nach der Hilfsspalte sortieren und die mit 2 und 3 markierten Zeilen löschen.
HTH
Gruß
Peter
AW: jede 2. und 3. Zeile löschen!
20.01.2006 14:15:32
Matthias
Hallo Benny,
so auf die Schnelle:

Sub löschen()
Do
ActiveCell.Offset(1, 0).Delete
ActiveCell.Offset(1, 0).Delete
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell = ""
End Sub

Bitte erst an einer Kopie prüfen.
Gruß Matthias
AW: jede 2. und 3. Zeile löschen!
20.01.2006 14:23:57
UweD
Hallo
so z.B.

Sub weg_damit()
Dim Sp%, LR%, TB1, i#
Sp = 1 'Spalte A
Set TB1 = Sheets("Tabelle1")
LR = TB1.Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
For i = LR To 3 Step -3
Range(Rows(i - 1), Rows(i - 2)).Delete
Next
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige

308 Forumthreads zu ähnlichen Themen

Einfügen mit jeder 2. Zeile als Leerzeile
Ulrich

Hallo zusammen,
wie kann ich einen Bereich einer Tabellen markieren, kopieren und in einem anderen Tabellenblatt über "Inhalte einfügen" und "verknüpfen" automatisch mit jeder zweiten Zeile als Leerzeile versehen, ohne das die Verknüpfung verrutscht?
Danke im Voraus und Grüße,
Ulr...
26.08.2008 14:15:00
Thread-ID: 1004799
4 Beiträge
Anzeige
Jede 2. Zeile einfärben
Frank

Hallo und Guten Abend Zusammen!
Mit folgendem Code
Sub Zeilen_formatieren() Sheets("DATEN").Activate Range("A14:K65536").Select For Zeile = 1 To Selection.Rows.Count If Zeile Mod 2 > 0 Then Selection.Rows(Zeile).Interior.ColorIndex = 15 End If Next Zeile End Sub
kann ich jede z...
17.01.2009 19:20:00
Thread-ID: 1040966
4 Beiträge
Jede 2. Zeile Hintergrund ändern
Blum

Hallo zusammen
Habe da noch eine Frage.
In Excel kann man doch jede 2. Zeile anders darstellen, so dass das lesen von grossen Dateien einfacher wird.
z.B. 1. Zeile weiss, 2. Zeile hellgrün, 1. Zeile weiss, 3 wieder hellgrün usw.
Hemm weiss jemand noch wie das automatisiert geht?...
25.06.2009 17:40:07
Thread-ID: 1084417
6 Beiträge
Anzeige
Jede zweite Zeile ausblenden
kleinerfinger

Guten Morgen, ich hoffe das Wetter bei euch ist etwas besser als bei mir !
Ich möchte per VBA über einen Button von der Zeile 8 bis zur Zeile 1000 jede zweite Zeile ausblenden und über einen anderen Button wieder einblenden.
Wie lautet der Code dafür?
Danke für eure Bemühungen im Vo...
27.10.2009 08:18:15
Thread-ID: 1112393
3 Beiträge
Makro zum löschen jeder 2. Zeile
philG

Hallo liebe Herber-Gemeinde,
ich habe ein Problem: elend Lange Tabelle, wo ich die 1., 3., 5. Zeile usw. löschen muss.
Kann mir jemand mit einem VB-Befehl aushelfen, der jede 2. Zeile der Tabelle löscht?
Ich wäre suuperhappy! Habt vielen Dank im Voraus! :-)
05.01.2010 10:26:46
Thread-ID: 1127199
4 Beiträge
Makro: jede zweite Zeile andersfarbig
Holger

Hallo,
aus diesem Forum habe ich unten stehendes Makro gefischt.
Funktioniert soweit alles, nur sobald durch AutoFilter die Auswahl verändert wird,
gerät natürlich alles durcheinander. Mit einer bedingten Formatierung möchte ich es ungern
lösen, mir ist eine reine VBA Lösung li...
07.05.2010 16:37:55
Thread-ID: 1156123
4 Beiträge
Innerhalb Markierung jede 2. Zeile löschen
Henning

Hallo zusammen,
ich habe schon gesucht, aber irgendwie keine Lösung gefunden.
Das Problem: Beim Einfügen von Daten aus einem anderen Programm übernehme ich Zeilen, die ich nicht brauche. Da ich die Daten immer wieder an anderen Stellen einfüge, suche ich nach einer Funktion, die mir in...
10.06.2010 16:54:13
Thread-ID: 1161292
3 Beiträge
Leerzeile nach jeder Zeile
Tom

Hallo
ich suche eine Möglichkeit mit der nach jeder 2.Zeile automatisch eine Leerzeile eingefügt wird.
Zeile 1=Inhalt Zeile2=leer Zeile3=Inhalt Zeile4=leer usw.
Danke vorab
TOM
05.09.2010 15:43:41
Thread-ID: 1175831
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
3
5
4
2
3
3
2
1
8
3
3
6
3
7
3
6
3
1
10
3
4
4
3