Datum überprüfen
reiner
https://www.herber.de/bbs/user/79404.xls
in "A1" ist ein beliebiges Datum eingetragen. Das Makro "Zerlegen" soll das Datum in 3 durch jeweils einen Punkt "." getrennte Bereiche aufteilen um sie später auf Plausibilität zu überprüfen. Mit dem Programmcode
Datum = "(CDate(ActiveSheet.Cells(1, 1)))"
erhalte ich aber regelmäßig eine Fehlermeldung.Ist hingegen das Datum Bestandteil des Programmcodes funktioniert zwar das Zerlegen ohne Probleme, ist jedoch unsinnig, da das Datum immer in "A1" eingetragen werden soll. Bitte beachten, "A1" ist "Text-Formatiert", die Formatierung darf nicht verändert werden da ansonsten weitere hier nicht dargestellte Berechnungen darauf aufbauen.
Hat jemand einen Vorschlag wie der Programmcode geändert werden muss?
mfg
reiner