Sub
DatumUhrzeittrennen()
Sheets(
"Temperatur H57"
).Activate
Sheets(
"Temperatur H57"
).Activate
Range(Cells(2, 2), Cells(ActiveSheet.Range(
"B999999"
).
End
(xlUp).Row, 2)).
Select
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
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"
End
Sub