Hallo liebe Experten,

meine Frage wurde eig schon häufigt beschrieben, ich habe aber nach intensiver Suche noch keinen passenden Ansatz gefunden.

Problem:

In den Zellen der Spalte A stehen jeweils Datum und Uhrzeit zusammen in der Form DD.MM.YYYY hh:mm:ss.

Diese will ich nun trennen, wichtig dabei ist, dass in Spalte A nur das Datum und in Spalte B nur die Uhrzeit stehen darf.

Sprich es ist leider nicht mit einer Formatänderung getan :-(, da dort immernoch in der Excel beschriftungszeile die volle Form DD.MM.YYYY hh:mm:ss drin steht.

Die von mir versuchten Lösungsmöglichkeiten.

1te von mir versuchte Lösungsmöglichkeit war die Daten mithilfe von Text in Spalten zu trennen und einfach den Makro aufzunehmen. Dabei hat sich wurde leider immer aus z.B. 00:00:05 --> 12:00:05 und in die dritte Spalte C wurde Am geschrieben.

2te lösungsmöglichkeit ist dieser Makro

Sub UhrzeitKopieren()
'Makro kopiert nur den Rechten Teil des Datums (Uhrzeit)
Application.ScreenUpdating = False

Sheets("Temperatur H57").Activate

'kopiert nur die Uhrzeit aus der Spalte A in Spalte B
Dim Ende As Long
Ende = Range("A:A").SpecialCells(xlCellTypeLastCell).Row


For i = 2 To Ende

Cells(i, 2) = Right(Cells(i, 1), 8)

Next i
'Uhrzeitspalte wird als hh:mm formatiert

Range(Cells(2, 2), Cells(ActiveSheet.Range("B999999").End(xlUp).Row, 2)).NumberFormat = "hh:mm"


'Uhrzeit wird aus Datumspalte rausgelöscht
Range(Cells(2, 1), Cells(ActiveSheet.Range("A999999").End(xlUp).Row, 1)).Select
Range(Cells(2, 1), Cells(ActiveSheet.Range("A999999").End(xlUp).Row, 1)).NumberFormat = "DD.MM.YYYY"
Dim Zelle As Range
For Each Zelle In Selection
  Zelle = Left(Zelle, Len(Zelle) - 9) ' Aus der Datumsspalte wird die Uhrzeit herausgelöscht
Next

For i = 2 To Ende
    Cells(i, 1) = Trim(Cells(i, 1))
    'Leerzeichen werden Rechts entfernt
Next i


End Sub

Problem bei diesem Makro ist, dass ein Leerzeichen hinter dem Datum steht was ich trotz trim nicht wegbekommen und das fast noch größere Problem ist, dass er unglaublich lange dauert.

Villeicht wisst ihr ja Tipps oder Lösungsvorschläge zu meine Möglichkeiten oder ganz neue Ansätze.

Danke schonmal im voraus

Gruß Chris