---

Hallo Leute,
für eine Materialbestellung habe ich eine Preisfestschreibung bis 31.07.2011. Danach gelten neue Preise. Ich möchte in das Makro ein Abfrage haben wenn Datum größer 31.07.2011 dann soll ein Fenster aufgehen "Keine Preise gültig" und das Makro abgebrochen werden.
Wie kann ich diese Wennabfrage in das Makro integrieren?

Sub Abfrage1()
Wenn HEUTE() > 31.07.2011 dann Textbox2
MsgBox „Preise aktuell“
End Sub

Sub Textbox2()
MsgBox „Keine aktuellen Preise“, 16, „Funktionsfehler“
End Sub

------------------
Gruß
    Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Marco,

versuchs mal so:

Code:

---

Sub Abfrage()
    If Date > "31.07.2011" Then
        MsgBox "Keine aktuellen Preise", 16, "Funktionsfehler"
    Else
        MsgBox "Preise aktuell"
    EndIf
End Sub

---

------------------
Ist mir egal, wer Dein Vater ist; solange ich angle läuft hier keiner übers Wasser!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hofe,

das funktioniert wenn ich das Datum in eine Zahl (31.07.2011 = 40755) umwandel.

Danke.......

------------------
Gruß
    Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Marco,

du kannst DateValue verwenden:

Code:

---

Sub Abfrage()
    If Date > DateValue("31.07.2011") Then
        MsgBox "Keine aktuellen Preise"
    Else
        MsgBox "Preise aktuell"
    End If
End Sub

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP