Datums und Zeitwert auslesen und umwandeln

Hallo Excel-Helfer
ich bekomme häufig aus einem anderen Programm lange Listen in Excel exportiert, die folgendes Datums- und Zeitangabe in einer Zelle enthalten: "10.19.2007 00:00:00". Das Format ist eigentlich MMTTJJJJ, aber Excel erkennt dies nicht, vermutlich wegen dem Export. Ich sollte daraus das Datum in eine andere Spalte exportieren. Die Datumsangaben stehen immer in einer Spalte untereinander, aber je nach Liste auch in unterschiedlichen Spalten. Je nach Liste sind zwischen 100 und 20000 Datumsangaben enthalten.
Manuell schaffe ich das dadurch, dass ich die Daten über Daten-Text in Spalten separiere und sie anschließend mit Datum() zusammensetze. Dies ist allerdings zeitaufwendig und aufgrund der unterschiedlich langen Listen für mich nicht automatisierbar.
Kann mir jemand ein Makro dazu schreiben, dass mir je nach Listenlänge diese Felder als Datum ohne Zeiten in eine neue Spalte kopiert?
Viele Grüße
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Zahlen_Umwandeln_JJJJMMTT() '* H. Ziplies * '* 02.11.07 * '* erstellt von Hajo.Ziplies@web.de * '* http://Hajo-Excel.de/ ' Datum umwandeln von 20011231 (JJJJMMTT) in 31.12.2001 ' für den markierten Bereich Dim RaBereich As Range Dim StDatum As String For Each RaBereich In Selection If Len(RaBereich) = 19 Then StDatum = Mid(RaBereich, 4, 2) & "." & Mid(RaBereich, 1, 2) & _ "." & Mid(RaBereich, 7, 4) & " " & Mid(RaBereich, 12) If IsDate(StDatum) Then RaBereich = CDate(StDatum) RaBereich.NumberFormat = "dd.mm.yyyy hh:mm:ss" End If End If Next RaBereich End Sub

'* H. Ziplies * '* 02.11.07 * '* erstellt von Hajo.Ziplies@web.de * '* http://Hajo-Excel.de/ '**************************************************

Hallo,
es wird die Spalte der Aktiven Zelle umgewandelt:


Sub Datum()
Dim lngLastRow As Long, intLastColumn As Integer, intDateColumn As Integer, intOffset
intDateColumn = ActiveCell.Column
lngLastRow = Cells(Rows.Count, intDateColumn).End(xlUp).Row
intLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column + 1
intOffset = intDateColumn - intLastColumn
Cells(1, intLastColumn) = Cells(1, intDateColumn) & "_2"
With Range(Cells(2, intLastColumn), Cells(lngLastRow, intLastColumn))
.NumberFormat = "DD.MM.YYYY"
.FormulaR1C1 = _
"=DATE(MID(RC[" & intOffset & "],7,4),MID(RC[" & intOffset & "],1,2),MID(RC[" &  _
intOffset & "],4,2))"
End With
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Beliebteste Forumthreads (12 Monate)

Datums und Zeitwert auslesen und umwandeln

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datums und Zeitwert auslesen und umwandeln

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread