Hätte geglaubt das ich dieses Problem gelöst hätte,aber doch leider nicht !!
Ich möchte in txtDatum das Format "DD.MM.YYYY" zuweisen und dieses Datum in G1 einfügen.
Leider funkt.das nicht in G1 steht dann immer "FALSCH".
Könnte mir bitte jemand weiterhelfen.
Gruß Heinz
Private Sub cmdEintragen_Click()
Range("B3") = TextBox1.Text
Range("A3") = TextBox3.Text
Range("G1") = txtDatum = Format(Date, "DD.MM.YYYY")
ERRORHANDLER:
MsgBox "Geben Sie ein gültiges Datum im Format dd.mm.yy ein"
Range("B36") = TextBox5.Text 'Montag kommt
Range("E36") = TextBox6.Text 'Montag geht
Range("C50") = TextBox7.Text 'Montag Pause
Range("B37") = TextBox8.Text 'Dienstag kommt
Range("E37") = TextBox9.Text 'Dienstag geht
Range("C51") = TextBox10.Text 'Dienstag Pause
Range("B38") = TextBox11.Text 'Mittwoch kommt
Range("E38") = TextBox12.Text 'Mittwoch geht
Range("C52") = TextBox13.Text 'Mittwoch Pause
Range("B39") = TextBox14.Text 'Donnerstag kommt
Range("E39") = TextBox15.Text 'Donnerstag geht
Range("C53") = TextBox16.Text 'Donnerstag Pause
Range("B40") = TextBox17.Text 'Freitag kommt
Range("E40") = TextBox18.Text 'Freitag geht
Range("C54") = TextBox19.Text 'Freitag Pause
Unload Me
End Sub