VBA Datum abfragen

[Korain]

Hallo zusammen,

ich würde gerne eine Abfrage machen, ob sich der Monat geändert hat, weiß aber nicht, wie ich dies in VBA schreibe.

Logik:


Ich habe ein Datum in einer Zelle zb. A1. Das Datum ist in folgendem Format: TT.MM.JJJJ

Ich möchte überprüfen ob das heutige Datum einen anderen Monat hat (ggf. noch das Jahr).
Also ob sich TT.MM.JJJJ verändert haben. Sprich es ist immer ein Abgleich des Datums aus der Zelle A1 mit dem heutigen Datum.

Vielen Dank!

Korain  

[Ralf A]

Hi,

als ganz vereinfachtes Beispiel für die Monatsprüfung - für das Jahr wäre es If Year(rng.Value)...

Code:

Function GleicherMonat(rng As Range) As Boolean
    Dim bln As Boolean
    If IsDate(rng.Value) Then
        If Month(rng.Value) = Month(Date) Then bln = True
    End If
    GleicherMonat = bln
End Function

Besser wäre es, auf Jahr UND Monat zu prüfen...

[RPP63]

Moin! 
Warum VBA?
Formel in der bedingten Formatierung:
=MONAT(A1)<>MONAT(HEUTE())
Knalliges Rot wählen.

Gruß Ralf

[snb]

PHP-Code:

=TEXT(A1;"mmjjjj")=TEXT(TODAY();"mmjjjj") 


[Korain]

Moin, warum VBA:
weil eine Funktion automatisch gestartet werden soll, wenn man das Workbook öffnet und eine Abweichung besteht. :D