Datumsabfrage

Question

Hallo,

habe folgenden Code
....
Dim datum
datum = Now

For n = 4 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(n, 1) < Now And Cells(n, 3) = "Mai" Then.......

ich möchte die IF-Abfrage zusätzlich so erweitern, dass die Bedingung jeweils nur vom 1.-10. des laufenden Monats erfüllt ist. Gleichzeitig möchte ich in diesem Beispiel den "Mai" durch eine Variable für den aktuellen Monat ersetzen.
Wer weiß wies geht?
Gruß
Andreas

Answer 1

Hi Andreas,

was steht in der Zelle selbst - ein "richtiges" Datum, welches nur als "MMM" formatiert ist? Dann kannst du die Zelle problemlos kopieren, nur musst du nach dem Kopieren der Zelle das richtige NumberFormat zuweisen. Das kann man mit dem Makrorekorder aufzeichnen.

Bis später,
Karin

Answer 2

...habe es mit

Month(DateValue("1." & Cells(n, 3) & "2014"))...

probiert - funktioniert aber nicht.
A.

Answer 3

Hallo Andreas,

versuch's mal so

Month(DateValue("1." & Cells(n, 3) & ".2014"))

funktioniert aber nur mit Text in Cells(n, 3)

Gruß
Rainer

Answer 4

Hallo Karin,

in der Zelle Cells(n,3) selbst steht "Jan" nicht als Datumsformat, sondern als Text.
Ich habe jetzt eine Hilfsvariable Datum eingeführt und dieser die Verkettung
"1." & Cells(n, 3) & "2014"...zugewiesen.

Jetzt funktioniert auch auf einmal

Month(DateValue(datum))...und gibt die Monatszahl 1 aus, so dass ich weiterrechnen kann.
Vielen Dank für deine Unterstützung!!!!!!!!!!
Viele Grüße
Andreas