AW: Text in Datum umwandeln
31.05.2007 11:28:01
Oberschlumpf
Hi Gerhard
Ich hatte deswegen beides in einer Mappe, weil du nicht die Tabellenblätter angegeben hattest - da dachte ich, du meinst mit Mappe = Tabellenblatt
(gib bitte immer alle notwendigen Infos an)
Versuch es mal mit diesem Code:
Sub DatZeit()
Dim loZeile As Long, lstrWert As String
With Workbooks("Datenbank.xls").Sheets("Tabelle1")
For loZeile = 3 To .Cells(Rows.Count, 2).End(xlUp).Row
lstrWert = Replace(.Range("B" & loZeile).Value, "/", " ")
lstrWert = Left(lstrWert, 2) & "." & Mid(lstrWert, 3, 2) & "." & Mid(lstrWert, _
5, 5) & ":" & Right(lstrWert, 2) & ":00"
With Workbooks("Übersicht.xls").Sheets("Tabelle1")
.Range("B" & loZeile).Value = CDate(lstrWert)
.Range("B" & loZeile).NumberFormat = "dddd, dd/mm/yyyy hh:mm"
End With
Next
End With
End Sub
Beide Excel-Dateien müssen geöffnet sein.
In welche Datei du den Cod einfügst, ist egal . aber Datenbank biete sich als Quell-Datei an, oder?
Das Wert#-Problem, welches du beschrieben hast, ergibt sich wohl aus der früheren Code-Zeile mit Format(...).
Das habe ich nun gändert, in dem ich das Excel-eigene Format und nicht mehr die Format-Funktion aus VBA verwende - letzteres gibt wohl einen String und nicht ein Datum zurück.
Auf jeden Fall ergibt nun die Formel
21.05.2007 14:00:00 + Zeit(22;0;0) = Dienstag, 22.05.2007 12:00:00
Konnte ich helfen?
Ciao
Thorsten