Office: Datum in Text umwandeln.

Hallo,

ich kopiere per Makro Daten aus einer Tabelle in eine andere Tabelle. Darunter befinden sich auch Datumsangaben. Wenn ich das Datum (dd.mm.yyyy) kopiere dann erscheint es in der anderen Tabelle zunächst in folgendem Format yyyymmdd. Die Zelle wird dabei in ein benutzerdefiniertes Format (vorher Textfeld) umgewandelt. Ich brauche aber das Datum als Text im Format yyyymmdd, da es später exportiert werden muss. Momentan sieht meine Kopieraktion so aus:


.Cells(lngrow + 1, 22) = losc.Cells(i, 39)
.Cells(lngrow + 1, 22).NumberFormat = "yyyymmdd"

Ich habe es schon anders versucht, nämlich so (bezieht sich jetzt nur auf eine andere Zeile).

.Cells(lngrow + 1, 23) = losc.Cells(i, 16)
.Cells(lngrow + 1, 23) = CStr("" & Format(Date, "yyyymmdd"))

Aber da setzt er mir dann das tagesaktuelle Datum ein und nicht mein Datum, welches ich aus der anderen Tabelle kopiert hatte.

Es wäre schön wenn mir jemand helfen könnte.

Danke

seppco

:)

 

Hallo seppco,

die einleitende Rückfrage bei solchen Fragen ist immer: Liegt wirklich ein Datum vor, oder doch eher ein Text, der nur wie ein Datum aussieht?

Geh mal in Deine Quelltabelle (aus der Du die Daten kopierst) und ändere dort testweise das Format einer Zelle auf Zahl. Steht immer noch das Datum da? Dann ist es Text und kein Datum - daher ist es auch per NumberFormat nicht änderbar! Das erfordert die vorherige Umwandlung in einen Datumswert (oder meist umständliche Basteleien).

Die zweite Frage wäre: Willst Du das Datum im neuen Format dann wirklich als Text, oder weiterhin als Datumswert, aber mit neuem "Aussehen"? (Mit einem Datumswert kann man i. d. R. mehr anfangen: Rechnen, auswerten, zusammenfassen und eben auch Formate ändern....)

Eine Mustermappe (es genügen einige Zellen mit Deinen widerspenstigen Datumswerten, alles anders kannst Du löschen) und Antworten auf die Rückfragen würden bei der Analyse und Lösung helfen.

Grüße
EarlFred

 

Hallo,

danke für die schnelle Antwort.

Also die Prüfung hat ergeben, dass die Quelldatei definitiv ein Datum ist und kein Text. Ich brauche in der neuen Tabelle das Datum als Text im Format yyyymmdd. Eine Beispielmappe ist schwer zu erstellen, da es sich ja um 2 Dateien handelt und ich per Makro die Daten aus der einen Datei in eine zweite Datei teilweise kopiere. Ich hoffe ich kann mit meinen Antworten helfen, da ich im Moment nicht weiß, wie ich eine sinnvolle Beispieldatei zur Verfügung stellen soll.

Danke und Grüße

seppco

 

Hallo seppco,

wenn's ein Datum ist, also eine Zahl, wird diese bei mir wie gewünscht dargestellt, also "20141010" für heute.
Testcode:
Code:

Kleingeschrieben tut's das Format bei mir auch, aber ich verwende für Datumswerte immer Großschreibung, für Uhrzeiten Kleinschreibung, weil's Excel an anderer Stelle damit sehr genau nimmt.

Was bei Dir schiefläuft, kann ich so nicht sehen. Was für eine Testdatei im ersten Schritt sinnvoll wäre, schrieb ich ja bereits.
Auch könntest Du mitteilen, welchen Wert .Cells(lngrow + 1, 22) besitzt, nachdem diese Zeile abgearbeitet wurde:
Code:

(Mit F9 Haltepunkt setzen, Mit F8 im Einzelschritt weiter)

Grüße
EarlFred

 

Hallo,

also hier zur Verdeutlichung eine Beispieldatei was ich meine. Das Datum in Zelle A1 ist das Ergebnis des Makros wie oben beschrieben. Das Datum in Zelle B1 ist das Datum so wie ich es brauche. Der Unterschied ist ersichtlich wenn ich mir die Zellenformatierung ansehe, bzw. wenn ich die Zellen jeweils anklicke und den Inhalt in der Bearbeitungsleiste anschaue.

Grüße

seppco

 

Hallo seppco,

sorry, da stand ich auf dem Schlauch - steht ja eigentlich so in der Frage, ging aber irgendwie nicht in meinen Kopf.

So sollte es gehen (Prinzip!):
Code:

Grüße
EarlFred

 

Hallo,

entschuldige bitte, aber ganz so firm bin ich mit VBA nicht und mit Range habe ich noch nicht viel gearbeitet. Kannst du mir noch helfen, dass in meinen Code wie oben geschrieben einzubauen?

Wie gesagt. Kopieren des Datums von der einen Tabelle in die Andere und in der Zieltabelle das Datum dann in Textformat umwandeln.

Danke nochmal.

seppco

 

Hallo seppco,

anstelle
Code:

nimmst Du
Code:

Grüße
EarlFred

 

Hallo,

ich schaffe es dieses Wochenende nicht, deinen Vorschlag auszuprobieren, aber Montag setze ich mich gleich daran und dann melde ich mich wieder.

Bis dahin

seppco

 

Hallo,

hat alles super funktioniert. Vielen Dank!

seppco