Formatverlust bei Textboxen
Roland
Ausgangslage:
Ich lese per VBA eine XML-Schnittstelle aus und trage die Werte in ein Tabellenblatt, nennen wir es Datentabelle ein. Diverse Zellen anderer Tabellenblätter sind mit dieser Datentabelle verknüpft (=Datentabelle!D20) usw. Die Zellen der diversen Tabellenblätter sind unterschiedlich formatiert zB. Datum T.MMM.JJJJ usw.
Über ein Userform bekommt der User alle Daten aus der Datentabelle angezeigt und kann diese gegebenenfalls modifizieren.
Nun passiert folgendes:
Nach dem auslesen der XML-Schnittstelle sind auf allen diversen Tabellenblätter die angezeigten Werte genau in dem Format, wie die Zellen auch formatiert sind, obwohl in der Datentabelle zB. 24.06.2009 steht, wird im Tabellenblatt 24. Jun. 2009 angezeigt.
Öffne ich jetzt die Userform und speichere die Daten zurück ohne eine Modifikation zu machen, steht in der Datentabelle immer noch 24.06.2009, aber im Tabellenblatt steht jetzt auch 24.06.2009.
Meine Frage:
Wo geht die Formatierung verloren oder wo wird ev. eine Formatierung hinzugefügt. Bei der Übergabe an die Userform oder bei der Übergabe von der Userform zurück in die Datentabelle?
Ich weiss, dass man mit .text Zahlen und per Format Datumswerte bei der Übergabe in die Datentabelle verwendet werden kann. Mich würde von einem Profi interessieren wieso die Formatierung von der XML-Schnittstelle richtig und von der Userform falsch ist.
Zur Ergänzung:
Codeteil XML-Auslesen
'1.IV
Set Eintrag = Wert.selectSingleNode("XXXX/VEHICLE/INITIAL_REGISTRATION")
Worksheets("SSXMLZIP").Cells(i + strZeileStartXML, 15) = Eintrag.text
Codeteil Userform laden
.txt_ErsteIV.Value = Worksheets("SSXMLZIP").Cells(20, 15)
Codeteil Daten von Userform übernehmen (hier bestünde ja jetzt die Möglichkeit ein Format mitzugeben)
.Cells(20, 15).Value = txt_ErsteIV
Besten Dank im Voraus für die Antwort auf meine etwas komlizierte Frage
Gruss Roland