Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1880to1884
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
1880to1884
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

304 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Zeile einfügen wenn bestimmter Wert vorhanden
Bernhard

Hallo zusammen,
das Forum hat mir schon oft bei meiner Recherche geholfen, jetzt habe ich mal eine Frage.
Ich habe eine Tabelle in der in der Spalte A in verschiedenen Zeilen das wort "Ergebnis" steht.
Wie kann ich jeweils unter dieser Zeile eine Leerzeile einfügen.
Ich hoffe da...
28.11.2008 13:12:00
Thread-ID: 1028680
5 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Anzeige
Zeilen löschen wenn ...
Marion65

Hi zusammen,
habe eine Tabelle hochgeladen, mein Problem ist dort beschrieben.
Gruß Marion
https://www.herber.de/bbs/user/62707.xls
24.06.2009 04:57:02
Thread-ID: 1083974
8 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge
Zeile löschen , wenn doppelt, Makro ?
walli

Hallo zusammen,
hatte vorhin geschrieben, leider nicht mehr im Forum.
Ich habe eine große Tabelle, ab Zeile 6 von Spalte A bis M
soll diese kontr. werden ob eine Zeile doppelt (gleich) ist und
diese Doppelte dann von A-M löschen.
Das Ende der Tabelle kann von A6 bis 500 ode...
24.06.2009 12:45:17
Thread-ID: 1084084
4 Beiträge
Zeilen löschen wenn ...
Marion65

Hallo zusammen,
habe mein Problem in der Beispieldatei beschrieben. Für Eure Hilfe wäre ich Dankbar.
Gruß Marion
https://www.herber.de/bbs/user/62728.xls
Ps. Franz hatte mir schon ein Makro gebastelt, doch leider funktioniert es nicht richtig.
Sub BegriffSuchenZeilenLoesc...
24.06.2009 20:27:47
Thread-ID: 1084196
8 Beiträge
Makro läuft nicht. Zeile löschen wenn...
Christoph

Hallo,
ich habe eine große Tabelle und möchte die Zeilen löschen, die eine "1" in Spalte O:O haben.
Ich habe auch hier und in anderen Foren eine Reihe Makros gefunden. Unter anderem dieses hier:
Sub loeschen() Dim loZeile As Long Application.ScreenUpdating = False For loZeile = 12...
01.07.2009 13:38:55
Thread-ID: 1085695
10 Beiträge
Anzeige

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
5
7
4
7
3
7
4
3
7
9
4
3
6
8
10
3
8
3
15
11
3
8
4
3
1