Office: VBA - Datum vergleichen

Hallo allerseits,

ich will in vba mir eine function schreiben in der ich einen bereich von zeilen in einer spalte datume vergleichen kann, anhand dem heutigen datum und am ende die anzahl ausgibt die kleiner is. soweit so gut das geht...

wenn ich jetzt aber darüber hinaus noch definieren will das das datum in der zeile + 2 Jahre, oder 730 tage is, klappt das nich wenn ich cell.Text + 730 in der If-Abfrage mach

wie kann ich die Datume besser vergleichen?? weil cell.Text liefert mir ja nur den Inhalt nich aber die Formatierung, wenn ich mir die formatierung im blatt selber anschau is ja des heutige datum 28.12.2009 als zahl = 40175 und zB der 06.10.2008 als zahl = 39727...somit könnte ich besser die datume vergleichen
hat jmd ne lösung wie ich das in der if-abfrage besser hinbekomme??
so das er bevor er die abfrage macht erst den inhalt der zelle umwandelt...

thx schonma

greets

 

Hallo!

Warum denn überhaupt VBA???
=ZÄHLENWENN(A1:A999;"<"&HEUTE())
oder
=ZÄHLENWENN(A1:A999;"<"&HEUTE()+730)

Und wenn schon VBA, dann mit cell.Value, denn du vergleichst ja Werte und keine Texte.

 

okay läuft ^^ vielen dank, aber is heute-730 hab ich eben festgestellt :)

trotzdem vielen dank :)

 

Hi,

hier noch die Lösung mit VBA:

Code:

Function Datum(Bereich As Range) As Integer
    Datum = Application.CountIf(Bereich, "<" & CDbl(Date) - 738)
End Function

Bis später,
Karin

 

wie kann ich zusätzlich noch festlegen, das er zählen soll die größer 0 sind??

mein excel is leider englisch ^^

is die formel so korrekt??

 

Hallo!

Ja, die Formel ist korrekt.
Wenn die Datei allerdings auch auf früheren Excel-Versionen laufen soll/muss, dann nimm lieber SUMPRODUCT:

=SUMPRODUCT((B7:B70<TODAY()-730)*(B7:B70>0))

(COUNTIFS gibt's erst ab XL2007)

 

ah okay cool, daran hab ich garnich gedacht...

merci und tausend dank