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
Sovereign Sylvia hoppensack1 „VB(Excel) - Datum an Textfeld übergeben“
Hi Mike,
"Verstanden habe ich jetzt nur nicht, wieso ich im Modul bei: Textbox2.Text = (datum) einen Laufzeitfehler bekomme."
Das kann ich dir leider auch nicht sagen. Ich habe deinen Code wie ursprünglich ausprobiert und keinen Laufzeitfehler bekommen. Allerdings benutze ich ein rein englischsprachiges System und rein englischsprachige Software. Bei deutschsprachiger (igittigit) Software mag "datum" ein Schlüsselwort sein, dass du dann in der von dir gewählten Art und Weise so nicht verwenden kannst. Probier mal einen anderen Variablennamen.
Oder probier mal die Zeilen "Dim datum As String" und "Textbox2.Text = (datum)" ganz für sich allein, also ohne deine anderen Codezeilen (einfach auskommentieren, um sie zu deaktivieren). Dann müsste (wenn "datum" kein Schlüsselwort ist !) wenigstens ein Leerstring an die Textbox übergeben werden, ohne dass es zum Laufzeitfehler kommt.
Eine andere Möglichkeit kann sein, dass die Textbox NICHT Teil des Moduls ist. In dem Fall wird ein Control angesprochen, das aus Sicht des Moduls nicht vorhanden ist.
Und noch ein Tipp: Schau mal im Visual-Basic-Editor unter "Tools" (Extras ?), "Options" und Tab "Editor" nach, ob "Require Variable Declaration" (ich weiss die Bezeichnungen in anderssprachigen Programmen nicht; könnte aber "Variablen-Deklaration erforderlich" heissen) aktiviert ist; wenn nicht - aktivieren. Dann wird dir schon zu Beginn der Ausführung einer Prozedur mitgeteilt, ob die von dir verwendeten Variablen gültig sind.
So, nun habe ich genug Food-for-Thoughts gegeben. Vielleicht lässt du mich ja mal deine Ergebnisse erfahren.
Gruss Sylvia
