Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten mit löschen in Abhängigkeit von Datum in anderer Zelle

Forumthread: Daten mit löschen in Abhängigkeit von Datum in anderer Zelle

Daten mit löschen in Abhängigkeit von Datum in anderer Zelle
16.08.2024 09:52:47
Carsten
Hallo zusammen,

Ich habe eine Tabelle mit Kundendaten. Hier markiere ich mir die für Besuche geplanten Kunden mit einem "X" in Spalte P.
Nach dem Besuch aktualisiere ich in Spalte G das Datum des letzten Besuchs. Ich möchte nun per Makro (nicht automatisch nach der Eingabe sondern durch einen Button) das jeweilige "X" löschen. Da aber noch weitere Termine geplant sind, soll natürlich nicht die gesamte Spalte gelöscht werden sondern nur die, bei denen das Datum in Spalte G maximal 14 Tage zurück liegt.

Wie kann ich das realisieren?

Gruß
Carsten
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Daten mit löschen in Abhängigkeit von Datum in anderer Zelle
16.08.2024 10:41:17
GerdL
Hallo Carsten,

probiers mal.
Sub Unit()


Dim zeile As Long

For zeile = 2 To Cells(Rows.Count, "P").End(xlUp).Row

If UCase$(Cells(zeile, "P")) = "X" Then
Cells(zeile, "P").ClearContents
If IsDate(Cells(zeile, "G").Text) And Cells(zeile, "G").Value (Date - 14) Then
Cells(zeile, "G").ClearContents
End If
End If

Next

End Sub

Gruß Gerd
Anzeige
AW: Daten mit löschen in Abhängigkeit von Datum in anderer Zelle
16.08.2024 10:53:15
Carsten
Hallo Gerd,

"Cells(zeile, "P").ClearContents" hast du vermutlich vergessen zu löschen denn damit wurden alle "X" gelöscht, unabhängig vom Datum und bei "Cells(zeile, "G").ClearContents" musste ich dann das G durch P ersetzen.

Dann klappt es aber.
Vielen Dank
AW: Daten mit löschen in Abhängigkeit von Datum in anderer Zelle
16.08.2024 11:03:18
Carsten
Man sollte doch erst ausgiebig testen bevor man antwortet...

Es werden die "X" gelöscht, die eigentlich erhalten bleiben sollen und umgekehrt.
Anzeige
AW: statt kleiner nimm mal groesser
16.08.2024 11:37:35
hary
Moin
Meinst du es anders rum? Also SpalteG groesser Heute-14 Tage. Dann x loeschen?
Sub Unit()

Dim zeile As Long
For zeile = 2 To Cells(Rows.Count, "P").End(xlUp).Row
If UCase$(Cells(zeile, "P")) = "X" Then
If IsDate(Cells(zeile, "G").Text) And Cells(zeile, "G").Value > (Date - 14) Then
Cells(zeile, "P").ClearContents
End If
End If
Next
End Sub

gruss hary
Anzeige
AW: Daten mit löschen in Abhängigkeit von Datum in anderer Zelle
16.08.2024 11:44:11
GerdL
Hallo Carsten!

Oder: >= Date - 14 oder: > Date - 15 ?

Die Aufgabenbeschreibung war halt für mich etwas unpräziese; daher "probiers mal".

Vielleicht bekommst du die Anpassung ja selbst hin.

Gruß Gerd
AW: Daten mit löschen in Abhängigkeit von Datum in anderer Zelle
16.08.2024 12:07:48
Carsten
Ich hab mal ein bisschen gebastelt und die Sache mit dem Datum komplett umgangen.
Ich habe eine Spalte, in der der nächst fällige Besuchstermin prozentual angezeigt wird, basierend auf dem letzten Besuch und dem Rhythmus.
Ich lese nun diesen Wert aus und lösche, wenn der Wert kleiner 10 ist. So klappt es wie es soll.

Vielen Dank Gerd und Hary
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige