26.05.2020, 14:35 (Dieser Beitrag wurde zuletzt bearbeitet: 26.05.2020, 14:37 von Rolexa78.)
Hallo zusammen,
ich haben in einer CSV Datei eine Datumsangabe, die Excel nicht interpretieren kann. Daher suche ich einen Weg, wie ich das mit Excel so umwandeln kann, dass ich das Datum für Berechnungen nutzen kann. Leider bin ich mit meiner Suche nicht besonders weit gekommen. :-(
Hier ein Beispiel der CSV Rohdaten:
"Nov 20, 2019 03:31:33 EST"
Mich interessiert hier nur das Datum, also der 20.11.2019. Wie könnte ich hier am elegantesten das Datum auslesen und z.B. in eine neue Zelle übertragen lassen?
Eine Liste der Monatsnamen auch fürs Englische ist fest eingebaut. Die kann man nach "left(Dt, 3)" durchschleifen, dann den Tag mit "mid(dt, 5,2) und das Jahr mit "mid(dt, 9, 4) bestimmen. Alle drei Wertein "datevalue(year, month, day)" eingeben und ... geschafft.
als Makro habe ich es in Spalte "B" mal so probiert, würde mich freuen wenn es klappt. Die Datenlänge kann beliebig sein, das Makro ermittelt selbst die letzte Zelle.
mfg Gast 123
Code:
Option Explicit Dim Wert As Variant
Sub Datum_wandeln() Dim AC As Range, lz1 As Long 'LastZell aus Spalte B laden (Spalte 2) lz1 = Cells(Rows.Count, 2).End(xlUp).Row
'Schleife für alle Zeiten ab Zeile 2 For Each AC In Range("B2:B" & lz1) Wert = Left(AC, 12) 'Uhrzeit abschneiden AC.Offset(0, 1) = CDate(Wert) Next AC End Sub
PS Schöne Grüsse an alle Kollegen, heute habe ich ausnahmsweise für 1 Stunde Internet ... Aus Ankara könnte ich mich regelnässig am Forum berteiligen, hänge aber wegen Corona in der Eifel fest! Ohne Internet!!
Da die Daten als CSV vorliegen, wird Excel für die Umwandlung nicht benötigt. Also ein Powershell-Script, das mit kleinen Änderungen jede Zeitzone in "local time" wandelt. Pfad und Dateiname müssen am Anfang und Ende angepasst werden.
Code:
$file = $env:USERPROFILE + '\desktop\TimeConvert EST to Local.txt' #$file = & 'C:\Users\User\Desktop\TimeConvert EST to Local.txt'