|
Frohe Weihnachen Zusammen,
ich hoffe mir kann jemand weiterhelfen, Ausgangslage ist :
"E2" bis" E...." ist folgender wert "20201222 063000" Die ersten Zahlen bilden ein Datum und nach dem Leerzeichen beginnt die Uhrzeit.
Gibt es eine möglichkeit die Zellen zu Trennen ung gleichzeitig ein Datum und Uhr als Format zu zuweisen ?
Den Code für die Teilung habe ich schon(siehe unten) es hapert an der umwandlung ins Datum bzw. Zeit format.
Bin ziehmlich Ratlos.
Vielen dank für die hilfe im Vorraus
LG Rene
Sub Trennen()
Dim sText As String ' der eingegebene Text
Dim iPos As Integer ' die Position des Space (Trennzeichen)
Dim intCol As Integer ' die Beginn-Spalte der Aufsplittung
Dim iIndx As Integer ' For/Next Index
Dim lLetzte As Long ' letzte zu bearbeitende Zeile
lLetzte = Range("E65536").End(xlUp).Row
For iIndx = 2 To lLetzte
sText = Range("E" & iIndx).Value ' den Text holen
iPos = InStr(sText, " ") ' Space-Position feststellen
intCol = 4 ' Beginn der Aufteilungs-Spalte
While iPos > 0 ' solange Space gefunden wurde
Cells(iIndx, intCol).Value = Left(sText, iPos - 1)
sText = Right(sText, Len(sText) - iPos)
iPos = InStr(sText, " "): intCol = intCol + 1
Wend
Cells(iIndx, intCol).Value = sText
Next iIndx
End Sub
|