Office: Datum (Text) in bestehender Tabelle in Datum umwandeln

Hallo Excel-Cracks

Ich habe eine Tabelle die mich verrückt macht: Über Monate habe ich mit einer userform Daten eingetragen. Es scheint dass alle Daten als Text eingetragen wurden, obwohl ich folgenden Code benutzte:

txtDatum ist das Textfeld.

Mir ist das ganze erst aufgefallen nachdem ich versucht hatte, mit einem Filter, die Daten zu gruppieren.

Wie kann ich die bestehen Daten von Text in Datum umwandeln damit ich alles sortieren kann (siehe Bild)? Muss ich was im Formular ändern?

Danke für eure Tipps

Maria

 

Hallo!

Um deine bestehenden Datümer von Text in Zahl umzuwandeln, versuch mal folgendes:
Kopiere eine leere Zelle in die Zwischenablage (Strg+c)
Nun markiere die umzuwandelnden Zellen, mache einen Rechtsklick auf die Markierung und wähle "Inhalte einfügen".
Unter "Vorgang" gibst du "Addieren" ein und bestätigst mit OK.

 

Hallo Schatzi

Vielen Dank, es hat funktioniert.

Aber wenn ich, mit dem Formular ein neues Datum eintrage, erscheint es wieder als Text. Muss ich beim Code was ändern?

Code:

.Cells(lngZeile, 2).NumberFormat = "dd/mm/yyyy;@"
.Cells(lngZeile, 2).Value = DateValue(txtDatum.Value)
.Cells(lngZeile, 3).NumberFormat = "hh/mm"" Uhr"";@" 

Gruss
Maria

 

Hallo,

so wie das aussieht, sind Deine Zellen als Text formatiert, deshalb die Probleme. Am besten alle leeren Zellen löschen.

Gruß

Edgar

 

Hallo Maria85,

wenn ich das richtig verstehe, hat die Lösung von Schatzi ja soweit funktioniert, das die bereits bestehenden Einträge von Text nach Datum umgewandelt wurden.

Dann würde ich jetzt die betreffende Spalte markieren und für die ganze Spalte das Zellformat auf Datum setzen.


Bei einer meiner Dateien benutze ich folgendes:

Code:

.Cells(1, 3) = CDate(Me.cboDatum)
.Cells(1, 3).NumberFormat = "dd/mm/yyyy"

Scheint mir im Endeffekt das Gleiche wie Dein:

Code:

.Cells(lngZeile, 2).NumberFormat = "dd/mm/yyyy;@"
.Cells(lngZeile, 2).Value = DateValue(txtDatum.Value) 

außer bei der Reihenfolge.

Probiere mal:

Code:

.Cells(lngZeile, 2).Value = DateValue(txtDatum.Value)
.Cells(lngZeile, 2).NumberFormat = "dd/mm/yyyy;@"

Dabei fällt mir gerade auf:
was soll eigentlich das "@" in "dd/mm/yyyy;@"?
Probiere doch vielleicht mal dies:

Code:

.Cells(lngZeile, 2).Value = DateValue(txtDatum.Value)
.Cells(lngZeile, 2).NumberFormat = "dd/mm/yyyy"

Wenn das alles nichts hilft könnte man eventuell noch den Textfeldwert erst an eine Variable übergeben, die als Datum definiert ist, und den Zellwert dann aus dieser Variablen holen:

Code:

Dim Datum As Date

Datum = DateValue(txtDatum.Value)
.Cells(lngZeile, 2).Value = Datum
.Cells(lngZeile, 2).NumberFormat = "dd/mm/yyyy"

Ich hoffe geholfen zu haben.

 

Hallo,

statt dieser Zuweisung:

Code:

.Cells(lngZeile, 2).NumberFormat = "dd/mm/yyyy;@"
.Cells(lngZeile, 2).Value = DateValue(txtDatum.Value)

reicht das:

Code:

.Cells(lngZeile, 2).NumberFormat = "dd/mm/yyyy;@"
.Cells(lngZeile, 2) = DateValue(txtDatum)

Gruß

Edgar

 

Hallo Maria85,

ich hatte jetzt die Zeit das mal bei mir zu testen, denn dieses "@" lies mir keine Ruhe.

Zwischen Deinem "DateValue" und meinem "CDate" konnte ich im Ergebnis keinen Unterschied erkennen, wohl aber zwischen der Version mit und ohne "@".
Beachte bitte das angehängte Bild.
Links zeigt das Ergebnis ohne, und rechts das Ergebnis mit "@".

Ich würde vorschlagen, Du probierst es mal ohne.


Ich hoffe geholfen zu haben.

 

Hallo Achim,

die Unterschiede zwischen den beiden Bildchen erklären aber nicht, warum das Ergebnis des Textfeldes als Text vorliegt. Bei Dir sind beides Datumswerte, also Zahlen. Bei Maria steht ein Text.

Folgender Code erzeugt 4x Zahlen und einmal Text:

Code:

Sub Test()
Dim txtDatum As String
txtDatum = InputBox("Datum eingeben")

Cells(5, 2).NumberFormat = "dd/mm/yyyy;@"
Cells(5, 2) = DateValue(txtDatum)
Cells(6, 2).NumberFormat = "dd/mm/yyyy"
Cells(6, 2) = DateValue(txtDatum)
Cells(5, 3).NumberFormat = "dd/mm/yyyy"
Cells(5, 3) = DateValue(txtDatum)
Cells(6, 3) = DateValue(txtDatum)
End Sub

Arbeitsblatt mit dem Namen 'List1'
	B	C	D	E
5	11.08.2011	11.08.2011	1	1
6	11.08.2011	8/11/2011	1	2
7	11.08.2011		1

Zelle	Formel
D5	=TYP(B5)
E5	=TYP(C5)
D6	=TYP(B6)
E6	=TYP(C6)
D7	=TYP(B7)

<table><tr><td>Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg</td></tr></table>[/parsehtml]

Der Text entsteht nur, weil die Spalte C als Text formatiert ist und die Zelle C6 nicht umformatiert wird. Also wäre eine Überprüfung des Codes angesagt.


Gruß

Edgar

 

Guten morgen

@Achim: Ich benutze meistens den Makrorekorder und schaue danach den Code. Der Makrorekorder hat das @ Zeichen mit aufgezeichnet. Weiss nicht was es bedeutet.

@Edgar: Du hattest Recht: Das Feld war als Text formattiert. Weshalb wurde das Feld, wenn ich mit VBA NumberFormat = "dd/mm/yyyy" benutze, das Feld nicht als Datumfeld zurückgeschrieben?

Soll ich also, um sicher zu sein, die gesamte Spalte bis 655xx als Datum formattieren?

Ich schätze die Hilfe, die ich hier im Forum kriege, sehr.

Maria

 

Hallo,

üblicherweise brauchst Du eigentlich keine Formatierung ändern, da Excel das im Zweifel selbst macht. Nur wenn Du besondere Wünsche oder andere Vorstellungen als Excel hast, dann solltest Du das Format ändern. Schlimm wird es, wenn man ganze Spalten als Text formatiert, weil Excel sich nur äußerst ungern dazu bewegen lässt, in diesen Spalten andere Formate anzunehmen.
Eigentlich sollte aber Dein Code das Format ändern, wobei ich allerdings nicht weiß, wie die Standardeinstellungen bei Dir sind. Bei mir zumindest wird nur dann ein Text erzeugt, wenn ich kein Format vorgebe (Zelle C6), Frage ist, weshalb bei Dir das nicht richtig läuft, da der Code augenscheinlich richtig ist.

Gruß

Edgar

 

Hallo Maria85,

scheinbar hab ich mich von dem @ auf einen Holzweg bringen lassen.
Es hat mich halt irritiert, denn mit:

Code:

.NumberFormat = "@"

würde man eine Zelle als Text formatieren...

Ich habe gerade nochmal die Situation mit Deinem ursprünglichen Code nachgebaut.
Sowohl mit einer ComboBox, als auch mit einer Textbox, und die Zellen vorher als Text formatiert.

Die Zelle hat hinterher Datumsformat.
Ich kann Dein Problem also nicht reproduzieren.


Kann es vielleicht sein, das an einer anderen Stelle im Code das Format wieder zurück auf Text geändert wird?

Ansonsten habe ich nicht den geringsten Schimmer woran Dein Problem liegen könnte.
Eventuell ist ja auch Deine Datei in irgendeiner Art beschädigt?