Hallo@all,
ich versuche verzweifelt das aktuelle Datum an eine Textbox zu
übergeben.
Range("J21").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.NumberFormat = "dd/mm/yy"
Dim datum As String
datum = Cells(21, 10)
Textbox2.text = (datum)
Aber irgendwie haut´ das nicht so ganz hin, kann jemand
helfen ?
Danke und Gruß
Mike
hoppensack1 Sovereign Sylvia „Hi Mike, ersetze mal deinen ganzen Code durch folgende 3 Zeilen: Range J21...“
Hi Sylvia,
vielen lieben Dank, das klappt hervorragend !!!
Ich habe noch einen Fehler gemacht und den Code im Modul eingesetzt
und wieder einen Fehler bekommen, dann habe ich ihn direkt in der
Tabelle eingefügt und es ging.
Verstanden habe ich jetzt nur nicht, wieso ich im Modul
bei: Textbox2.Text = (datum) einen Laufzeitfehler bekomme.
Gruß Mike
