Supportnet / Forum / Tabellenkalkulation
Löschen von Zeilen in einer Excel Tabelle
Frage
Wie kann ich jede dritte Zeile löschen, ich hab 7000 Zeilen? Wie geht das am schnellsten?
Antwort 1 von ThomasOOP
exportieren als textdatei
kleines programm schreiben
importieren
umständlich aber möglich
kleines programm schreiben
importieren
umständlich aber möglich
Antwort 2 von Guenter
Hallo,
kann man mit Makro machen:
Hier wird der Inhalt jeder 3. Zeile gelöscht.
Gruß
Günter
kann man mit Makro machen:
Option Explicit
Sub test()
Dim n
For n = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 3
Rows(n).Select
Selection.ClearContents
Next
End Sub
Hier wird der Inhalt jeder 3. Zeile gelöscht.
Gruß
Günter
Antwort 3 von Aliba
Hi Timio,
würde das mit einer Hilfsspalte machen, die anschliessend wieder gelöscht werden kann.
Formel in Hilfsspalte:
=REST(ZEILE();3)
Du erhältst jetzt in dieser Spalte Einträge von 0 bis 2.
Jetzt den Autofilter auf die Liste setzen und entsprechend nach 0 , 1 oder 2 filtern, je nach dem welche Zeilen raus müssen.
Die gefilterte Tabelle dann links in der Zeilennummerierung markieren und mit Strg und - löschen.
Dann kann erst der Autofilter entfernt und dann die Hilfsspalte gelöscht werden.
Cu Aliba
würde das mit einer Hilfsspalte machen, die anschliessend wieder gelöscht werden kann.
Formel in Hilfsspalte:
=REST(ZEILE();3)
Du erhältst jetzt in dieser Spalte Einträge von 0 bis 2.
Jetzt den Autofilter auf die Liste setzen und entsprechend nach 0 , 1 oder 2 filtern, je nach dem welche Zeilen raus müssen.
Die gefilterte Tabelle dann links in der Zeilennummerierung markieren und mit Strg und - löschen.
Dann kann erst der Autofilter entfernt und dann die Hilfsspalte gelöscht werden.
Cu Aliba
Antwort 4 von Timjo
Hallo Aliba!
Danke ich werd es ausprobieren!
Gruß
Timjo
Danke ich werd es ausprobieren!
Gruß
Timjo
Antwort 5 von RedSonja
lege dir 2 neue spalten an
in die eine kommt eine durchlaufende nummerierung und in die andere in jede 3. zeile ein punkt (setze den ersten punkt - markiere die ersten deri zellen - und ziehe die markierung auf)
jetzt nach der punktierten spalte sortieren und diese dann löschen
danach wieder nach der nummerierten spalte sortieren
fertig
Live long and prosper
RedSonja
in die eine kommt eine durchlaufende nummerierung und in die andere in jede 3. zeile ein punkt (setze den ersten punkt - markiere die ersten deri zellen - und ziehe die markierung auf)
jetzt nach der punktierten spalte sortieren und diese dann löschen
danach wieder nach der nummerierten spalte sortieren
fertig
Live long and prosper
RedSonja
Antwort 6 von Timjo
Hallo Günter!
Ich hab noch etwas verändert, aber wie kann ich sagen das erst ab der zweiten Zeile gelöscht wird.
Sub jede_dritte_zeile_löschen()
Dim n
For n = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 3
Rows(n).Select
Selection.Delete Shift:=xlUp
Next
End Sub
Gruß und schon mal Danke Timjo
Ich hab noch etwas verändert, aber wie kann ich sagen das erst ab der zweiten Zeile gelöscht wird.
Sub jede_dritte_zeile_löschen()
Dim n
For n = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 3
Rows(n).Select
Selection.Delete Shift:=xlUp
Next
End Sub
Gruß und schon mal Danke Timjo
Antwort 7 von RedSonja
geht auch mit meinem hinweis, nur dass du jetzt in die 2. zeile einen punkt setzt und dann die zellen 1-3 markierst und dann aufziehst.
Live long and prosper
RedSonja
Live long and prosper
RedSonja
Antwort 8 von Guenter
Hallo Timjo,
viele Wege führen nach Rom!!
Starten mit der 2. Zeile:
Gruß
Günter
viele Wege führen nach Rom!!
Starten mit der 2. Zeile:
Sub jede_dritte_zeile_löschen()
Dim n
For n = 2 To Cells(Rows.Count, 1).End(xlUp).Row Step 3
Rows(n).Select
Selection.Delete Shift:=xlUp
Next
End Sub
Gruß
Günter
Antwort 9 von Timjo
Danke hat super geklappt!
Gruß Timjo
Gruß Timjo
Antwort 10 von Timjo
Hallo RedSonja!
Danke ich werd es ausprobieren!
Gruß
Timjo
Danke ich werd es ausprobieren!
Gruß
Timjo