Hallo liebe Experten,
mein derzeitiges Problem wurde schon häufiger beschrieben habe aber leider nach 2tägiger suche immernoch keine optimale Lösung gefunden.
Das Problem ist, dass ich Uhrzeit und Datum welche in Spalte A stehen trennen möchte.
Anfangs steht in Spalte dd.mm.yyyy hh:mm:ss ich hätte gerne das in Spalte A dd.mm.yy steht und in Spalte B hh:mm und die Sekunden sollten aufgerundet werden bzw. wegfallen.
Das Problem mit dem Datum hab ich schon in den Griff bekommen.
Der Makro dafür lautet wie folgt
Range(Cells(2, 1), Cells(ActiveSheet.Range("B999999").End(xlUp).Row, 1)).TextToColumns Destination:=Range("A2"), DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Space:=True, FieldInfo _
:=Array(Array(0, 1), Array(1, 9), Array(2, 9))
Range(Cells(2, 1), Cells(ActiveSheet.Range("A999999").End(xlUp).Row, 1)).NumberFormat = "DD.MM.YYYY"
Problem bei der Uhrzeit ist, dass wenn man es mit Text in Spalten macht immer Am und PM angefügt wird, da der Makro bei Makro aufzeichnen (auf Deutsch) aufgezeichnet wird aber dann auf Englisch in VBA verarbeitet wird.
Ich bin leider mit Array sind so vertraut und kann deshalb den oberen Makro nicht anpassen, dass er z.B. in Spalte B nur die Uhrzeit stehen lässt und das Datum rauslöscht.
Meine Derzeitige Lösung sieht wie folgt aus.
'Sorgt dafür das nur die Uhrzeit in der Spalte Uhrzeit steht (dauert aber recht lange)
For Each Zelle In Selection
Range(Zelle.Address).Offset(0, 0) = Zelle.Value - Int(Zelle.Value)
Range(Zelle.Address).Offset(0, 0).NumberFormat = "hh:mm"
Next Zelle
'Die Sekunden werden bei der Spalte Uhrzeit abgerundet
Range(Cells(2, 2), Cells(ActiveSheet.Range("B999999").End(xlUp).Row, 2)).Select
For Each Zelle In Selection
Zelle.Value = TimeSerial(Hour(Zelle.Value), Minute(Zelle.Value), 0)
Next
Problem daran ist das bei über 200.000 zu trennenden Uhrzeiten der Makro über 2 Minuten braucht, dagegen das trennen mit den Arrays nur wenige Sekundne.
Eine reine Formatierung der Zellen bringt mir leider auch wenig, da ich mit diesen noch in Pivot weiterarbeiten muss. Dort kann es Probleme geben wenn in den noch Zellen das Datum und die Uhrzeit trin steht (wenn auch nicht sichtbar in den einzelnen Zellen).
Danke schonmal im Voraus für eure Vorschläge oder Lösungsansätze
Gruß
Chris