CheckBox

[Andyle]

Hallo an alle!

Ich habe ein Problem mit einer CheckBox!

Im UserForm ist ein DTPicker. Leider hat er immer das Erstellungsdatum drin, was anscheinend nicht auf leer gesetzt werden kann, was mir lieber wäre und alles andere sich erübrigt hätte.

Nur leider zeigt er immer das Datum an, an dem der Picker erstellt wurde.

Ich habe ein UserForm, was Daten aufnimmt und in eine Tabelle schreibt.

So soll es werden:
Wenn CheckBox geklickt, Datumseingabe ignorieren und leere Zelle setzen.
Wenn CheckBox nicht geklickt, dann prüfen, ob im DTPicker das Datum < als Heute und Fehler ausgeben.

Mein bisheriger Code:

Code:

'Prüfung
If Not CheckBox And txtDatum < Date Then
   MsgBox ("Bitte das aktuelle Datum " & """" & Date & """" & " oder ein in der Zukunft liegendes Datum eintragen!")
    Exit Sub
    End If

Code:

'In Tabelle (Zelle) schreiben
If CheckBox Then
ActiveSheet.Cells(last, 3).Value = ""
Else
ActiveSheet.Cells(last, 3).Value = Format((Me.txtDatum.Value), "dd.mm.yyyy")
End If

Nur leider funzt es so irgendwie nicht.

[Kuwer]

Hallo,

ich sehe nur irgendwelche Codeschnipsel. Die würden so bei mir auch nicht "funzen".
Das Posten der Datei mit UF wäre sicherlich zielführender.

Gruß, Uwe

[Andyle]

Hat sich erledigt!
Hab es hinbekommen.

If cboDatum = False And txtDatum < Date Then
MsgBox ("Bitte das aktuelle Datum " & """" & Date & """" & " oder ein in der Zukunft liegendes Datum eintragen!")
Exit Sub
End If

If cboDatum <> False Then
ActiveSheet.Cells(last, 3).Value = ""
Else
ActiveSheet.Cells(last, 3).Value = Format((Me.txtDatum.Value), "dd.mm.yyyy")
End If