Office: Text in Datum Umwandeln in einer Spalte

guppi11 · 27. November 2016

Hallo Zusammen,

Ich hab folgendes Problem.
Ich möchte in einer Spalte alle Zellen die einen Eintrag haben in ein DAtumsformat bringen. In der Zelle steht als TEXT Format z.B. 14.09.2016.
Wenn ich die Zelle anwähle und über Zelle formatieren das Format DATUM setzte wird das nicht übernommen.
Wenn ich jedoch in einer neuen Spalte den Wert mit eins multipliziere und dann das Datumsformat wähle Funktioniert es.

1. Habt ihr vielleicht eine Antwort wieso das so ist?
2.Wie kann ich dass nun in einen VBA-Code packen?

Leibe Grüße und Danke schon mal für jegliche Mühe.
Ich verzweifle schon seit 2 Tagen darann.

Guppi

:)

Heidjer · 28. November 2016

Könntest du vielleicht die Datei/einen relevanten Auszug aus der Datei in deinem Beitrag hochladen?
Bin nicht sicher, ob ich die Problematik richtig verstehe.

Crazy Tom · 28. November 2016

Hallo

mit diesem Code wird in Spalte A das "Textdatum" in ein richtiges umgewandelt

Code:

Sub Datumformat_erzeugen()
Application.Calculation = xlManual
Dim inh As Date
Dim z As Long
z = 2
Do While Cells(z, 1) ""
inh = Range("A" & z)
Range("A" & z) = inh
z = z + 1
Loop
Application.Calculation = xlAutomatic
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MfG Tom

guppi11 · 28. November 2016

Vielen Dank schon mal.
Es funktioniert aber immer noch nicht. Das skript wandelt es Um aber in ein amerikanisches Datum und es ist immer noch Text, wenn ich mit der Maus rechtsklick auf Zelle formatieren > Zahlen gehe.
Hab hier jetzt mal eine Datei in dem die Daten sind und ein Backup der Daten.

Viele Grüße
und Danke für eure Hilfe

guppi11 · 28. November 2016

Nur zur Info:

Alles ist auf deutsch eingestellet Excel sehe ich auf deutsch meine Tastatur ist auf deutsch und Windows ist ein 32 Bit system. Falls das einene Einfluss haben sollte.

hary · 28. November 2016

Moin
Muss es VBA sein?
Markier einfach SpalteA(auf das A klicken) dann Daten/Text in Spalten/fertig
und schon hast du es als Datum.
gruss hary

guppi11 · 28. November 2016

Ja wäre schon prima, denn es soll automatisch mit anderen Funktionenen ablaufen. Aber Danke schon mal für den Hint. *Smilie

Till41 · 28. November 2016

Würde es einfach mit CDate machen.

Code:

Cells(Zeile,Spalte) = CDate(Cells(Zeile,Spalte))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

So gehst du einfach durch den Bereich, den du umwandeln willst.

Till41 · 12. Januar 2021

von hary

Moin
Muss es VBA sein?
Markier einfach SpalteA(auf das A klicken) dann Daten/Text in Spalten/fertig
und schon hast du es als Datum.
gruss hary
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Edit: Kannte ich nicht, danke für den Tipp! (hatte dich zuerst falsch verstanden)

guppi11 · 28. November 2016

Wieso Funktioniert der Folgende Code eigentlich nicht.
Code:

Sub bla()

a = Sheets("Tabelle1").Cells(Cells.Rows.Count, 1).End(xlUp).Row

For i = a To step - 1
With Sheets("Tabelle1")
.Cells(i, 1).Value = Format(CDate(.Cells(i, 1).Value), dd.mm.yyyy)
End With
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

guppi11 · 28. November 2016

Sorry ich meinte... Code:

Sub bla()
Dim a, i As Integer

a = Sheets("Tabelle1").Cells(Cells.Rows.Count, 1).End(xlUp).Row

For i = a To 4 Step -1
With Sheets("Tabelle1")
.Cells(i, 1).Value = Format(CDate(.Cells(i, 1).Value), dd.mm.yyyy)
End With
Next

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hary · 29. November 2016

Moin
Code:

Dim a as long, i As long
With Sheets("Tabelle1")
.Columns(1).NumberFormat = "DD.MM.YY"
a = .Cells(Cells.Rows.Count, 1).End(xlUp).Row
For i = a To 4 Step -1
.Cells(i, 1).Value = CDate(.Cells(i, 1).Value)
Next
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

guppi11 · 29. November 2016

Ja Mega es funktioniert *boah *biggrin.gif* *mrcool . Viel vielen DANk.

Office: Text in Datum Umwandeln in einer Spalte

Text in Datum Umwandeln in einer Spalte

Text in Datum Umwandeln in einer Spalte

Text in Datum Umwandeln in einer Spalte

Text in Datum Umwandeln in einer Spalte

Text in Datum Umwandeln in einer Spalte

Text in Datum Umwandeln in einer Spalte - Similar Threads - Text Datum Umwandeln

Zählenwenns nach Text und abhängig vom Datum

Kombinieren von Text mit einem Datum oder einer Uhrzeit

Datum in Text umwandeln.

häufigster Text mit Bedingung (Datum)

Text in Datum umwandeln

Aus Text ein Datum erstellen

Datum (Text) in bestehender Tabelle in Datum umwandeln