Hallo zusammen.
Über eine UF gebe ich reichlich Personaldaten ein, die dann in verschiedene Zellen auf einem Tabellenblatt geschrieben werden.
Wenn ich die UF aufrufe kann ich aus einer Listbox den Namen auswählen, woraufhin alle Text und Comboboxen der UF gefüllt werden.
Nun mein Problem:
In einer Textbox wird ein Datum eingegeben und an eine Zelle übertragen. Die Zelle hat eine bedingte Formatierung die sie in verschiedenen Farben hervorhebt.
Hier der Code Ausschnitt: (funktioniert inkl. bedingter Formatierung)
If Me.TextBox7.Value > "" Then Sheets("Personaldaten") _
.Cells(lZeile, 8) = CDate(Me.TextBox7.Value)
Nun kann ich zwar ein anderes Datum in die Textbox7 eintragen und übernehmen, was mit der bF auch direkt klappt, ich kann sie aber nicht leeren. O.O
Leere ich die Box und klicke auf Anwenden bleibt das letzte eingetragene Datum in der Zelle stehen. (Das verstehe ich nicht)
Dann habe ich es damit versucht: bedingte Formatierung funktioniert nicht
Sheets("Personaldaten").Cells(lZeile, 8).Value = Format(Me.TextBox7.Value, "dd.mm.yyyy")
Damit kann ich zwar nach dem Laden der Daten in die UF das Datum sowohl ändern als auch entfernen, was in der Zelle auch übernommen wird, dann funktioniert aber die bF nicht mehr.
Jemand eine Idee wie ich beides zum laufen bringe?
Gruß Cooper