Hey Leute,
hier etwas einfaches, woran ich aber leider scheitere..
Private Sub UserForm_Activate()
If Date > DateValue("01.01.2017") And Date < DateValue("15.01.2017") Then
UserForm1.Fun.Caption = "Happy New Year"
End If
End Sub
Das Sub soll bewirken, dass wenn das heutige Datum zwischen dem 1.1 und dem 15.1 liegt, in einem Beschriftungsfeld bestimmte Dinge stehen.
So wie es da steht funktioniert es auch, aber ich wie man sieht, gilt das jetzt nur für das Jahr 2017. Würde das aber gerne allgemein für jedes jahr gültig machen. Außerdem würde ich gerne wissen, wie ich größer gleich schreibe anstatt größer. Ist das alles machbar?
Danke und Grüße
|