Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA: Wenn Datum erreicht und Zelle = 0, dann.

VBA: Wenn Datum erreicht und Zelle = 0, dann.
25.07.2006 17:53:22
Jürgen
Hallo zusammen,
folgendes habe ich:

Private Sub Workbook_Open()
If Date = 38714 Or Date = 38713 Then
MsgBox Chr(13) & " ! ! ! !  W I C H T I G ! ! ! !" & Chr(13) & "" & Chr(13) & "Bitte die Aktualisierung nicht vergessen!" & Chr(13) & "" & Chr(13) & "Fragen wir immer an mich: Wagner-ES@arcor.de" & Chr(13) & "" & Chr(13) & "Vielen Dank!"
Else
End If
End Sub

Wie kann ich aber erreichen, dass er diese Meldung nur dann anzeigt wenn das aktuelle Datum erreicht ist, und eine bestimmte Zelle in einem beliebigen Tabellenblatt gleich null ist?
Vielen Dank!
Gruß Jürgen

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Wenn Datum erreicht und Zelle = 0, dann.
25.07.2006 18:08:09
ChrisL
Hallo Jürgen
ungetestet:

Private Sub Workbook_Open()
If Date >= 38713 And Worksheets("Tabelle1").Range("A1") = 0 Then ...
End Sub

Gruss
Chris
AW: VBA: Wenn Datum erreicht und Zelle = 0, dann.
25.07.2006 18:19:40
Jürgen
Vielen Dank Chris,
so einfach wie es ist, ... funktioniert es auch tadellos!
AW: VBA: Wenn Datum erreicht und Zelle = 0, dann.
25.07.2006 19:03:21
Peter
Hallo Jürgen,
so könnte es gehen:

Private Sub Workbook_Open()
Dim iBlatt   As Integer
Dim dDatum   As Date:  dDatum = "25.07.2006"
If dDatum = Date Then
For iBlatt = 1 To Worksheets.Count
If Worksheets(iBlatt).Range("B2").Value = "Hugo" Then
MsgBox Chr(13) & " ! ! ! !  W I C H T I G ! ! ! !" & Chr(13) & _
"" & Chr(13) & "Bitte die Aktualisierung nicht vergessen!" & _
Chr(13) & "" & Chr(13) & _
"Fragen wir immer an mich: Wagner-ES@arcor.de" & _
Chr(13) & "" & Chr(13) & "Vielen Dank!"
Exit For
End If
Next iBlatt
End If
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: VBA: Wenn Datum erreicht und Zelle = 0, dann.
25.07.2006 19:15:37
Jürgen
Hallo Peter!
Vielen Dank, auch deine Lösung des Problems läuft nach einer Anpassung wunderbar!
Ich denke damit ist mit sehr geholfen...
Gruß Jürgen

402 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige