Datum Vergleich

Forumthread: Datum Vergleich
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Datum Vergleich

Datum Vergleich

16.08.2017 15:31:43

DMDET

Hallo Miteinander,
kann mir vielleicht helfen komme bei meinem VBA nicht weiter!
Ich möchte das Datum von M8 mit dem heutigen vergleichen! Und falls es gleich ist soll der Text "Datum ändern" kommen!
Mein bisheriger Code ist:
If Range("M8") = "=Today()" Then
MsgBox "Datum ändern"
Exit Sub
End If

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datum Vergleich

16.08.2017 15:46:19

Werner
AW: Datum Vergleich

21.08.2017 23:56:13

DMDET
AW: Datum Vergleich

22.08.2017 02:15:01

Werner
AW: Datum Vergleich

22.08.2017 03:05:27

Johannes
Gerne u.Danke für die Rückmeldung. o.w.T.

22.08.2017 10:52:59

Werner

AW: Datum Vergleich

16.08.2017 15:46:19

Werner

Hallo,

Sub Datum_prüfen()
With Worksheets("Tabelle1") 'Blatt anpassen
If CDate(.Range("M8")) = Date Then
MsgBox "Datum ändern"
Else
MsgBox "Datum in Zelle M8 ist " & CDate(.Range("M8")) _
& vbLf & "Heutiges Datum ist " & Date
End If
End With
End Sub

Gruß Werner

AW: Datum Vergleich

21.08.2017 23:56:13

DMDET

Gibt es eine Lösung auch ohne: With Worksheets("Tabelle1")
Da ich viele Tabellen habe und nicht jedesmal ein Makro machen müsste!

AW: Datum Vergleich

22.08.2017 02:15:01

Werner

Hallo,
einfach so, dann wirkt sich der Code auf das jeweils aktive Tabellenblatt aus.

Sub Datum_prüfen()
If CDate(Range("M8")) = Date Then
MsgBox "Datum ändern"
Else
MsgBox "Datum in Zelle M8 ist " & CDate(Range("M8")) _
& vbLf & "Heutiges Datum ist " & Date
End If
End Sub

Gruß Werner

AW: Datum Vergleich

22.08.2017 03:05:27

Johannes

Hallo!
Klasse! Vielen Dank für die Hilfe! Hat super geklappt!

Gerne u.Danke für die Rückmeldung. o.w.T.

22.08.2017 10:52:59

Werner