Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1256to1260
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
Inhaltsverzeichnis

VBA-Code ändern

VBA-Code ändern
Markus
Guten Tag,
ich möchte gerne folgende Prüfung ändern.
Dim lng As Long
For lng = 12 To Cells(Rows.Count, 11).End(xlUp).Row
If Cells(lng, 12)  "" Then
If Cells(lng, 12) 

Nun will ich aber nicht auf ein festes Datum 01.01.2008 prüfen, sondern anhand des Tagesdatum. Wenn das Datum in Bezug zum Tagesmonate 60 Monate in der Vergangenheit, dann soll der weitere Code greifen.
Wer kann mir helfen?
Viele Grüße
Markus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: ersetze 'CDate("01.01.2008")' durch 'Date' oT.
28.03.2012 11:57:11
JoWE
AW: ersetze 'CDate("01.01.2008")' durch 'Date' oT.
28.03.2012 12:11:14
Markus
Hallo JoWE,
aber irgednwo müssen doch die 60 Monate abgefragt werden. Stehe hier etwas auf dem Schlauch.
Danke!
Viele Grüße
Markus
AW: ersetze 'CDate("01.01.2008")' durch 'Date' oT.
28.03.2012 12:33:28
JoWE
Hallo Markus,
statt
If Cells(lng, 12) < CDate("01.01.2008") Then Cells(lng, 14).Value = "löschen"
vielleicht so:
If Cells(lng, 12) < date-(year(Date)-5) Then Cells(lng, 14).Value = "löschen"
Gruß
Jochen
AW: VBA-Code ändern
28.03.2012 12:49:35
Rudi
Hallo,
If Cells(lng, 12) < DateSerial(Year(Date), Month(Date)-60, Day(Date)) Then Cells(lng, 14).Value = "löschen"
Gruß
Rudi
Perfekt, danke für Eure Hilfe!
28.03.2012 17:38:47
Markus
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige