korrekten Stichtag mit VBA prüfen
29.01.2008 14:51:00
Marek
ich möchte in einem Formular einen Stichtag eingeben. Dieser soll dann in ein Arbeitsblatt geschrieben werden. Allerdings darf dieser neu eingegebene Stichtag nicht kleiner sein als der bereits vorhandene, und er darf auch nicht einen Monat überspringen.
Folgendes habe ich bereits geschrieben (Teil zwei der Prüfung - Monat wird übersprungen - fehlt noch, geht das mit "Datedif"?), aber es funktioniert nicht. Auch wenn das neu eingegebe Datum kleiner als das vorhandene ist, erfolgt trotzdem ein Eintrag; die Messagebox erscheint nicht.
Kann mir jemand dabei helfen?
Private Sub cmdMonatswechsel_Click()
If Worksheets("Stichtag").Range("A1").Value >= Me.Stichtag.Value Then
MsgBox "Monatswechsel bereits durchgeführt bzw. Stichtag nicht korrekt"
Else
[A1] = Me.Stichtag.Value
Range("A1").HorizontalAlignment = xlRight
Me.AusgabeMonatswechsel.Caption = "Monatswechsel durchgeführt zum " & Worksheets("Stichtag") _
.Range("A1").Value
End If
End Sub
Anzeige