Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1880to1884
1880to1884
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen wenn Datum...

Forumthread: Zeilen löschen wenn Datum...

Zeilen löschen wenn Datum...
03.05.2022 09:23:24
Jürgen
Liebe Community,
ich habe bei meiner Excel-Tabelle folgendes Problem:
Ich habe in Spalte O ein Datum im Format dd.mm.yyyy eingetragen, beginnend in O2, Ende variabel.
Nun möchte ich, dass beim Aufrufen des Tabellenblattes alle Zeilen gelöscht werden, in denen ein Datum eingetragen ist, welches älter als das aktuelle Jahr ist. Wenn wir uns also im Jahr 2022 befinden, sollen alle Zeilen mit Datum 2021 oder älter gelöscht werden.
Bitte um Hilfe, ich bekomms nicht hin.
Danke! Mfg Jürgen
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen wenn Datum...
03.05.2022 10:36:56
Beverly
Hi Jürgen,
ich würde das nicht beim Aufrufen des Blattes machen, denn dann würde der entsprechende Code jedesmal ausgeführt, sondern zielgerichtet bei Bedarf - z.B. mit folgendem Makro, welches du einer Schaltfläche zuweisen kannst:

Sub Loeschen()
Dim lngZeile As Long
Dim lngLetzte As Long
Dim varLoeschen As Variant
With Worksheets("Tabelle1") ' "" Then .Range(.Cells(2, 15), .Cells(lngLetzte, 15)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub
Bis später
Karin
Anzeige
AW: Zeilen löschen wenn Datum...
03.05.2022 11:21:59
Jürgen
Hallo Karin,
danke für den Code. Er funktioniert fast.
Es gibt in dieser Datumsspalte auch Zellen, wo KEIN Datum eingetragen ist. Diese dürfen nicht gelöscht werden.
Und jetzt kommt das Eigenartige, was ich nicht ganz verstehe: Füge ich deinen Code ein und führe das Makro aus, dann werden 2 Datensätze, in denen das Datumsfeld leer ist, nicht gelöscht. Alle anderen, in denen kein Datum steht, werden hingegen gelöscht.
Könnte es etwas mit der Position der Datensätze zu tun haben? Die beiden nicht gelöschten sind die beiden letzten in der Tabelle?
Danke für deine Hilfe!
Lg Jürgen
Anzeige
AW: Zeilen löschen wenn Datum...
03.05.2022 11:44:52
Beverly
Hi Jürgen,
so ist das, wenn man die Problemstellung ungenau beschreibt bzw. keine Beispielmappe hochlädt, die alle wichtigen Elemente repräsentiert: das konnte niemand wissen, dass es auch Zellen ohne Datum (also bereits leere) gibt. ;-)
Der Code baut nämlich darauf auf, dass in der Schleife die Zellen mit dem falschen Jahr geleert und am Ende alle Zeilen mit leeren Zellen in Spalte O auf einen Ritt gelöscht werden.
Gibt es eine Spalte, in der ALLE Zellen belegt sind?
Was die letzten beiden leeren Datensätze betrifft: in Spalte O wird die letzte belegte Zeile ermittelt und dann von dieser an rückwärts bis Zeile 2 alle Zeilen durchlaufen - da dort in Spalte O nichts steht, wird die letzte Zeile um 2 weniger ermittelt und somit nur die leeren Zeilen bis zu letzten tatsächlich belegten Zeile gelöscht.
Bis später
Karin
Anzeige
AW: Zeilen löschen wenn Datum...
03.05.2022 12:00:30
Jürgen
Hallo Karin,
ich weiß, ich weiß! Mea culpa! Sollte ja auch kein Vorwurf sein :)
Hier eine Beispieldatei: https://www.herber.de/bbs/user/152823.xlsx
Es gibt durchaus Spalten, in denen jede Zelle belegt ist. Aber in keiner Zeile ist jede Zelle befüllt.
Lg Jürgen
Anzeige
AW: Zeilen löschen wenn Datum...
03.05.2022 12:10:20
Beverly
Hi Jürgen,
dann nehmen wir als Grundlage die Spalte B:

Sub Loeschen()
Dim lngZeile As Long
Dim lngLetzte As Long
Dim varLoeschen As Variant
With Worksheets("Tabelle1") ' "" Then
If Year(.Cells(lngZeile, 15))  "" Then .Range(.Cells(2, 2), .Cells(lngLetzte, 2)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub
Bis später
Karin
Anzeige
AW: Zeilen löschen wenn Datum...
03.05.2022 12:20:09
Jürgen
Hi Karin,
das funktioniert PERFEKT!! Danke!!
Lg Jürgen
;

Forumthreads zu verwandten Themen

Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
7 Beiträge
Alle Leere Zeilen In A Spalte Löschen
Leo

Abend zusammen,
ich hab folgendes Problem !?
Ich habe in der A SPALTE eine Namensliste, mit mehreren tausend Namen, doch leider sind mir beim kopieren in Excel ein paar "ZEILEN Lücken" - ich hoffe ihr versteht mein Problem, kann es nicht besser formulieren - aufgestoßen ...
Meine Fr...
28.09.2011 21:43:27
Thread-ID: 1231905
4 Beiträge
Alle Zeilen und spalten löschen außer A2
Chrissi

Guten Abend, ich würde gerne beim starten der Userform alle Zeilen und Spalten ab A2 löschen
hatte vorher
ActiveWorkbook.Worksheets("Target").Range(Cells(2, 1), Cells(1000, 11)).ClearContents

Der Rangebefehl .Range("A2:K") klappt nicht
15.01.2012 23:10:16
Thread-ID: 1246308
3 Beiträge
Ab leerer Zelle in Spalte A alles unterhalbLöschen
Muehli
Guten Morgen zusammen,
ich habe folgendes Anliegen:
Vorliegende Tabelle:
|SpalteA|SpalteB|SpalteC|
|Text1|Text2|Text3|
|Text4|Text5|Text6|
|.....|.....|.....|
|TextX|TextY|TextZ|
sobald in SpalteA nichts mehr steht (leere Zelle) soll alles unterhalb gelöscht werden (...
27.10.2014 09:19:24
Thread-ID: 1388814
3 Beiträge
Alle Zeilen ohne Zahl löschen
Ralph

Hallo zusammen,
ich habe eine Tabelle die aus einem *.htm File erzeugt wird. In dieser Tabelle (ca. 17000 Zeilen) möchte ich nun per VBA alle Zeilen löschen, die nicht folgenden Kriterien entsprechen:
1. Der Inhalt in Spalte A ist eine numerische Zahl
2. Diese Zahl ist grösser als 9...
29.11.2014 14:10:05
Thread-ID: 1395279
4 Beiträge
Anzeige
Alle Zeilen löschen außer mit dem Wert "xyz"
Michael

Hallo,
mit folgendem Code lösche ich alle Zeilen wo der Wert "xyz" in der Spalte F vorkommt:
With Columns("F")
Do
Set objCell = .Find(What:="xyz", LookIn:=xlValues, _
LookAt:=xlWhole, MatchCase:=True)
If Not...
22.05.2015 15:50:12
Thread-ID: 1427370
5 Beiträge
Anzeige
VBA alle doppelten Zeilen löschen
Mimi

Hallo alle zusammen :)
ich habe folgendes Problem:
Ich habe eine Tabelle mit Vertragsnummern, mit 1000 oder mehr Einträgen. Die Vertragsnummern können aber durch Veränderungen doppelt eingetragen werden.
Ich möchte ein Makro schreiben, dass 1. prüft, ob die Vertragsnummer doppelt v...
06.07.2016 13:00:14
Thread-ID: 1502856
7 Beiträge
Alle Zeilen Löschen wenn Zelle D leer
Max

Hallo Excel Pros,
ich stehe leider etwas auf dem schlauch:
Ich möchte alle Zeilen in einer Tabelle löschen in denen die Zelle der Spalte D leer ist.
For i = 2 To lRow If IsEmpty(Cells(i, 4).Value) Then Next i Else Set rng = Range(Cells(Flag), Cells(i)) Rows(rng).Select Selection...
01.12.2017 12:11:56
Thread-ID: 1594762
5 Beiträge
Anzeige
alle Zeilen ohne Inhalt löschen
Lutz

Hallo,
In dieser Tabelle möchte ich alle Zeilen ohne Inhalt löschen.
Kann mir jemand per VBA weiterhelfen?
https://www.herber.de/bbs/user/118456.xls
Gruß Lutz
20.12.2017 20:59:40
Thread-ID: 1598376
7 Beiträge
alle 4-8te Zeilen löschen
Stefan

Hallo zusammen
Ich habe ein sehr großen Report (ca. 200000 Zeilen) und möchte diesen um weit mehr als die Hälfte an Zeilen reduzieren.
Dazu habe ich mir vorgestellt, wie im Bild alle 4-8te Zeile zu löschen.
Im Internet konnte ich ein Script finden, das genau dieses tut.
ABER......
15.02.2018 17:49:08
Thread-ID: 1609212
10 Beiträge
Anzeige
Löschen von Zeilen für alle Blätter in Datei
Zeilen

Liebe Mitglieder, wie kriege ich im folgenden Code hin, dass nicht nur im aktiven Sheet gelöscht wird, sondern in allen Worksheets.
I-wie ging es mit with each worksheet ... nicht oder ich mach i-was falsch.
Vielen Dank.
' Sub DelFoundLines() Dim i As Long ' Zeilenzähler...
29.10.2018 12:28:43
Thread-ID: 1654097
6 Beiträge
ALLE Zeilen in Tabelle löschen
David

Hallo liebe Herber-Freunde,
ich möchte in einer Tabelle mit einem Makro alle Zeilen löschen, um sie danach wieder mit neuen Daten befüllen zu können. Dabei soll nicht nur der Inhalt gelöscht werden, sondern komplett alle Zeilen, d.h. es soll nur noch die Überschrift bzw. nicht erste Zeile i...
11.04.2020 12:02:58
Thread-ID: 1751931
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeilen basierend auf Datum in Excel löschen

Schritt-für-Schritt-Anleitung

  1. Öffne deine Excel-Datei und gehe zu dem Tabellenblatt, in dem du die Zeilen löschen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden VBA-Code ein:

    Sub Loeschen()
   Dim lngZeile As Long
   Dim lngLetzte As Long
   With Worksheets("Tabelle1") ' Name des Arbeitsblatts anpassen
       lngLetzte = .Cells(.Rows.Count, 15).End(xlUp).Row ' Ermittelt die letzte Zeile in Spalte O
       For lngZeile = lngLetzte To 2 Step -1
           If IsDate(.Cells(lngZeile, 15).Value) Then
               If Year(.Cells(lngZeile, 15).Value) < Year(Date) Then
                   .Rows(lngZeile).Delete ' Löscht die Zeile, wenn das Datum älter ist
               End If
           End If
       Next lngZeile
   End With
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Weise das Makro einer Schaltfläche zu, um es einfach auszuführen.

Häufige Fehler und Lösungen

  • Problem: Einige Zeilen werden nicht gelöscht, obwohl sie ein Datum enthalten.

    • Lösung: Stelle sicher, dass die Zellen in Spalte O tatsächlich Datumswerte sind und nicht als Text formatiert sind. Der obige Code prüft auch, ob eine Zelle ein Datum enthält.

  • Problem: Das Makro löscht auch leere Zeilen.

    • Lösung: Achte darauf, dass der Code nur Zeilen löscht, wenn ein Datum vorhanden ist. Der Code oben berücksichtigt dies.

Alternative Methoden

Eine alternative Methode, um Zeilen basierend auf einem Datum zu löschen, ist die Verwendung von Excel-Funktionen:

  1. Filtere die Daten in Spalte O nach dem Jahr.
  2. Markiere die gefilterten Zeilen und drücke Strg + - (Minus), um sie zu löschen.
  3. Setze den Filter zurück, um alle verbleibenden Daten anzuzeigen.

Diese Methode ist handlicher, wenn du nicht ständig das Makro ausführen möchtest.

Praktische Beispiele

Angenommen, du hast folgende Daten in Spalte O:

O
01.01.2020
15.05.2021
10.12.2022
01.01.2019

Nach dem Ausführen des Makros werden die Zeilen mit den Daten 01.01.2020, 15.05.2021 und 01.01.2019 gelöscht, sofern das aktuelle Jahr 2022 ist.

Tipps für Profis

  • Verwende Application.ScreenUpdating = False am Anfang des Makros, um die Bildschirmaktualisierung während der Ausführung zu deaktivieren. Das beschleunigt den Vorgang erheblich.

    Application.ScreenUpdating = False
' Dein Code hier
Application.ScreenUpdating = True

  • Teste dein Makro immer in einer Kopie deiner Datei, um ungewollte Datenverluste zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich das Makro automatisch beim Öffnen der Datei ausführen?
Du kannst das Makro mit der Workbook_Open-Ereignisprozedur verknüpfen. Füge den Code in das DieseArbeitsmappe-Modul ein.

2. Funktioniert dieser Code in jeder Excel-Version?
Ja, der Code ist in den meisten modernen Excel-Versionen, einschließlich Excel 2016 und Excel 365, anwendbar. Achte darauf, dass Makros in deiner Excel-Anwendung aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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