Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsvergleich

Forumthread: Datumsvergleich

Datumsvergleich
25.11.2002 04:54:54
Gerd
Folgendes Problem

Ich habe eine Arbeitsmappe mit 35 Blättern in Blatt 35 Zelle X steht ein Datum dessen Monat ich beim öffnen der Mappe vergleichen möchte.Ist der Monat in Zelle X größer passiert nichts, ist er gleich so soll eine MSGBox erscheinen und mich an die fälligkeit erinnern, ist er größer so soll wiederum eine MSGBox erseinen mit folgender Meldung :Der Termin ist um X Tage überschritten.

Wer weiß hierzu eine VBA Lösung.
Danke im vorraus

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Datumsvergleich
25.11.2002 05:00:41
andreas e
ein ansatz wäre:
Private Sub Workbook_Open()
If Month(Date) = Month(Sheets(1).Range("a1")) Then
MsgBox ("JA")
ElseIf Month(Date) < Month(Sheets(1).Range("a1")) Then
MsgBox ("verfallen")
End If
End Sub

gruß
andreas e

Re: Datumsvergleich
25.11.2002 09:37:22
Gerd
Hallo Andreas,
dein "Ansatz" ist goldrichtig hast Du vielleicht auch für mehrere Blätter gleichzeitig eine Lösung.
Auch wenn nicht hast mir mit dem ersten Beitrag sehr geholfen.

Danke Gerd

Anzeige
Re: Datumsvergleich
25.11.2002 09:38:52
Knud
Hi
der Beitrag ist nicht von mir... da hat sich wohl das System verschluckt. Ich wollte sagen:

Du must die Werte in der Berechnung wirklich Runden (Funktion RUNDEN), nicht nur die Dezimalstellen wegstreichen.

Knud

Re: Datumsvergleich
25.11.2002 10:02:31
andreas e
etwa so ?
Private Sub Workbook_Open()
For z = 1 To Worksheets.Count
If Month(Date) = Month(Sheets(z).Range("a1")) Then
MsgBox ("JA")
ElseIf Month(Date) < Month(Sheets(z).Range("a1")) Then
MsgBox ("verfallen")
End If
Next z
End Sub
gruß
andreas e
Anzeige
Re: Datumsvergleich
25.11.2002 10:23:12
Gerd
Danke mein Problem ist somit gelöst.
gruß Gerd
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige