Clever-Excel-Forum

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

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...

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

Gruß Ralf

PHP-Code:
=TEXT(A1;"mmjjjj")=TEXT(TODAY();"mmjjjj") 

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

Korain

Ralf A

RPP63

snb

Korain