Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1404to1408
1404to1408
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt jeder x-ten Zeile Löschen

Forumthread: Inhalt jeder x-ten Zeile Löschen

Inhalt jeder x-ten Zeile Löschen
02.02.2015 14:31:50
Karl
Hallo,
ich habe eine Spalte mit 527797 Zeilen und möchte den Inhalt jeder 726.,727.und 728. Zeile löschen oder ihn auf null setzten.
Wer kennt eine passende Lösung?
Danke im Voraus

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt jeder x-ten Zeile Löschen
02.02.2015 15:28:46
Rudi
Hallo,
in eine freie Spalte
=WENN(ODER(REST(ZEILE();726)={0.1.2});"x";"")
nach x filtern und löschen.
Gruß
Rudi

AW: Inhalt jeder x-ten Zeile Löschen
03.02.2015 09:44:45
Karl
endlich hat es funktioniert Vielen Dank
Anzeige
;

Forumthreads zu verwandten 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
jede zweite Zeile bearbeiten/löschen
Martin

Hallo zusammen,
ich muss bei einer recht umfangreichen Datei je zwei Zeilen zusammenfassen.
Dafür bei zweiter Zeile:
Kopieren der Werte von Spalte A bis Spalte J, die Werte in der vorigen Zeile ab Spalte K einfügen, so dass nachher die Zellen A-T belegt sind. Nicht jede Zelle ist hi...
15.11.2008 14:35:07
Thread-ID: 1024767
5 Beiträge
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
Wert aus jeder zweiten Zeile übernehmen
oli.p

Hallo zusammen!
Ich sitze den halben Tag an einer für mich schier unlösbaren Aufgabe.
Zur weiteren Bearbeitung wollte ich eigentlich jeweils "nur" jeden zweiten Wert einer Zeile anzeigen.
Hier zur Veranschaulichung: https://www.herber.de/bbs/user/63952.xls
Vielen Dank für Eure H...
20.08.2009 14:20:09
Thread-ID: 1097390
5 Beiträge
Anzeige
Formelbezug zu jeder dritten Zeile
F

Hallo,
ich habe eine Datei mit mehreren Arbeitsblättern.
Im Arbeitsblatt: Tabelle3 steht in einer Zelle: =Tabelle1!D1
drei Zellen tiefer steht: =Tabelle1!D2
und noch einmal drei Zellen tiefer: =Tabelle1!D3
Jetzt möchte ich...
18.09.2009 13:13:21
Thread-ID: 1103894
6 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
Alles bis auf jede 4. Zeile löschen
markus

für meine diplomarbeit habe ich hier eine addressliste mit 14550 einträgen, die von A (Name Besitzer) bis H (Telefonnummer) reicht, und der fragebogen den ich erstellt habe soll nun an jede 4. person geschickt werden.
sprich ich suche nach einer möglichkeit, wie ich excel mitteile, dass jed...
02.06.2010 01:18:00
Thread-ID: 1159952
3 Beiträge
Anzeige
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
Anzeige
[Array] Jedes 2. Element löschen ?
Matthias

Hallo,
ich habe hier ein Meßgerät, dessen Meßdaten ich bisher immer mit folgendem VBA-Code auf den Computer einlesen konnte:
instrument.WriteString ":CALC1:DATA:FDAT?"
array1() = instrument.ReadList()
Range("I10:I" & UBound(array1) + 10) = Application.WorksheetFunction.Tra...
02.02.2011 16:37:35
Thread-ID: 1198675
13 Beiträge
Anzeige
Jede fünfte Zeile löschen
amintire

Guten morgen,
wie kann ich mit VBA Code jede Fünfte Zeile löschen?
Lieben Gruß
Amina
06.05.2011 08:06:57
Thread-ID: 1213287
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Inhalt jeder x-ten Zeile in Excel löschen

Schritt-für-Schritt-Anleitung

  1. Öffne deine Excel-Datei und wähle die Spalte aus, in der du jede zweite Zeile löschen möchtest.
  2. Füge in eine leere Spalte die folgende Formel ein: 
    =WENN(ODER(REST(ZEILE();726)={0;1;2});"x";"")

    Diese Formel markiert jede 726., 727. und 728. Zeile mit einem "x".

  3. Ziehe die Formel nach unten, um sie auf alle Zeilen anzuwenden.
  4. Filtere die markierte Spalte nach "x".
  5. Markiere die gefilterten Zeilen und lösche sie. Alternativ kannst du die Inhalte auf null setzen, indem du die Zellen auswählst und "Entf" drückst.

Häufige Fehler und Lösungen

  • Fehler: Die Formel wird nicht korrekt angewendet.

    • Lösung: Achte darauf, dass die Formel in einer separaten, leeren Spalte steht und ziehe sie bis zur letzten Zeile deiner Daten.

  • Fehler: Ich kann die gefilterten Zeilen nicht löschen.

    • Lösung: Stelle sicher, dass du die Filterfunktion aktivierst. Dies kannst du im Menü "Daten" unter "Filter" finden.

Alternative Methoden

Eine weitere Möglichkeit, jede zweite Zeile zu löschen, ist die Verwendung von VBA (Visual Basic for Applications). Hier ist ein einfaches Makro:

Sub DeleteEveryNthRow()
    Dim i As Long
    For i = 726 To ActiveSheet.UsedRange.Rows.Count Step 726
        Rows(i).Delete
    Next i
End Sub

Um das Makro auszuführen, drücke ALT + F11, füge ein neues Modul ein und kopiere den obigen Code hinein. Schließe den VBA-Editor und führe das Makro über ALT + F8 aus.

Praktische Beispiele

  • Beispiel 1: Du möchtest jede 2. Zeile löschen. Ändere die Formel in: 
    =WENN(REST(ZEILE();2)=0;"x";"")
  • Beispiel 2: Um jeden 10. Wert zu nehmen, kannst du die Formel anpassen: 
    =WENN(REST(ZEILE();10)=0;"x";"")

Tipps für Profis

  • Nutze die "Suchen und Ersetzen"-Funktion, um schnell Inhalte zu löschen, nachdem du sie markiert hast.
  • Speichere eine Kopie deiner Datei, bevor du Zeilen löschst, um Datenverlust zu vermeiden.
  • Experimentiere mit bedingter Formatierung, um die gelöschten Zeilen visuell hervorzuheben, bevor du sie endgültig entfernst.

FAQ: Häufige Fragen

1. Wie kann ich jede dritte Zeile löschen?
Verwende die Formel:

=WENN(REST(ZEILE();3)=0;"x";"")

und filtere nach "x".

2. Ist das Löschen von Zeilen in Excel rückgängig machbar?
Ja, solange du die Datei nicht gespeichert hast, kannst du mit STRG + Z die Löschaktion rückgängig machen.

Beliebteste Forumthreads (12 Monate)

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