Office: Datum aus Textfeld in Zelle

Hallo alle miteinander,

ich hab hier ein merkwürdiges Verhalten:

über ein Textfeld trage ich ein Datum (z.B. 12.12.2005) in eine Zelle ein, die das Format 'dd-mmm-yy' hat. Aber das Datum wird nicht umformatiert nach 12-Dec-05 sondern bleibt so wie in Textfeld eingetragen. Gehe ich nun her und ändere per Hand z.B die 12 auf 11 - zack ist das Datum richtig formatiert *confused.gif*

Hier meine Codeausschnitte:

Userform:
Code:

Prozedur:
Code:

Ich hoffe ihr könnt mir helfen ...
Danke schon mal im voraus.

Gruss
gonzo_mc_graw

:)

 

Hallo gonzo_mc_graw,

ich habe in Deinem Code nicht den Teil gesehen wo Du es in eine Zelle schreibst. Oder hat DEine Zelle den Namen "entry_rnd_activation_date_global" ??




Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.

 

Hallo Hajo,

ich übergeb den Wert per globale Variable am Anfang des Prozedurmoduls:

Code:

Vor dem Aufruf des Userforms aktiviere ich noch das Worksheet:

Code:

Im Userform schreibe ich es direkt in die globale Variable und von dort via Range(Zelle).Value in die angegebene Zelle.

Gruss

gonzo

 

Hallo gonzo,

folgender Vorschlag:

du zeichnest dir dein Vorgehen bei der Formatierung per Hand mit dem Makro-Recorder auf und passt den so entstandenen Code an deine Bedürfnisse an. (Bereich bzw. Zelle)

Dann fügst du diesen Code hinter dem Schreiben des Textboxwertes in die Zelle ein.

Dann sollte der Wert als Datum formatiert werden.

 

Hallo Knee,

das habe ich bereits gemacht:

Zuerst hab ich während der Aufzeichnung einen Wert in eine Standardzelle geschrieben, diesen dann per Copy&Paste in die Zielzelle gebracht. Dann im kleinen Popup-Fenster 'Einstellungen von Zielzelle übernehmen' geklickt und der Wert war richtig formatiert. Also Aufzeichnung beendet.

hab es dann eingebaut:
Wert aus Userform in eine Standardzelle, dann den Teil des Makros (Copy&Paste + Zielzelleneinstellung), aber das Format änderte sich nicht *frown.gif*

Hier der Code:
Code:

sehr seltsam ... gell?

Gruss
gonzo

 

Hallo gonzo,

ich meinte es auch etwas anders.

Also, kopiere den Wert in die Zeilzelle.

Dann rechte Maustaste und Zelle formatieren.

Entweder über Datum oder Benutzerdefiniert das gewünschte Format einstellen.

Diese Schritte mit dem Makrorecorder aufzeichnen und einbauen.

 

Hallo nochmal

ich habs mal gemacht und komme zu folgendem Ergebnis.

Code:

Hoffe es hilt dir weiter...

 

Hallo Knee,

sorry, hast recht, aber das hatte ich auch schon versucht - zuerst Wert in Zelle und dann neu formatieren:

Code:

ging aber auch nicht ...

Gruss
gonzo

 

Hallo Knee,

Code:

ging auch nicht *weinen

Sobald ich dann aber manuell was ändere und selbst wenn es nur ein [Enter] ist - plopp - Format geändert ...

Gruss
gonzo

 

Hallo gonzo,

ich hatte mal ein ähnliches Problem.

Dabei wollte ich mit Werten rechnen und musste vorher jede einzelne Zelle aktivieren.

Folgender Schuss ins Blaue

Code:

setze mal das hinter die Formatierung....

Das hat zwar augenscheinlich keine Bedeutung aber bei mir ging das damals.
Danach konnte ich mit den Zellen rechnen.

 

Hallo gonzo,

Du weist der Variablen entry_rnd_activation_date_global mit Cdate den Textbox Inhalt zu. Das ist völliger Unsinn da die Variable as String definiert ist. Im Klartext bedeutet es wandle den Inhalt der Textbox in ein Datum um und weise diesen Wert einer Variablen zu die als String definiert ist, also umwandlung in String. Was soll das ganze?

Range("N" & choosen_source_row).Value = Cdate(Textbox1)

Gruß Hajo

Das Forum lebt auch von den Rückmeldungen.

 

Hallo Hajo,

zuerst hatte ich

entry_rnd_activation_date_global = TextBox_Date.Value

um den Inhalt zu übergeben. Dann habe ich in einem Posting von dir gelesen, dass man mit CDate(TextBox_Date) den Wert in ein Datum umformatieren kann. Da ich des öfteren festgestellt hatte, wenn man in eine Zelle, die das Format dd-mmm-yy hat, z.B. 14-Mar-04 einfügt, Excel dies nicht korrekt in das Datum 14.03.2004 umwandelt, dachte ich mir 'Klasse, dadurch ist der Wert, der eingefügt wird, klar definiert'.

Gruss

gonzo

 

Hallo gonzo

Gruß Hajo

Das Forum lebt auch von den Rückmeldungen.

 

Hallo Hajo,

sorry, aber ich verstehs nicht ...

das mit der globalen Variable mach ich deswegen, weil ich es bis jetzt nicht geschafft habe, den Wert aus einer Textbox oder Combobox, etc. vom Userform in die Prozedur zurückzubekommen.

Wenn

Range("N" & choosen_source_row).Value = Cdate(Textbox1)

der richtige Weg sein soll, geht er nicht (jedenfalls nicht bei mir ... Fehlermeldung: Laufzeitfehler 1004 - Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen)

Wenn

Range("N" & choosen_source_row).Value = Cdate(Textbox1)

die Quintessenz aus dem Unsinn sein soll, den ich zusammengebastelt hab, dann weiss ich nicht wie ich es dann bewerkstelligen soll ...

Sorry, aber das ist mir zu hoch

Gruss

gonzo

 

Hallo gonzo,

Range("N" & choosen_source_row).Value = cdate(entry_rnd_activation_date_global)

Gruß Hajo

Das Forum lebt auch von den Rückmeldungen.