Clever-Excel-Forum

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.

Hallo,

ich sehe nur irgendwelche Codeschnipsel. Die würden so bei mir auch nicht "funzen". Undecided

Das Posten der Datei mit UF wäre sicherlich zielführender.

Gruß, Uwe

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

Clever-Excel-Forum

Andyle

Kuwer

Andyle