Zellinhalt (Datum und Uhrzeit ) aufteilen

Hallo Eric
ich weiss nicht ob die Frage mit meiner Lösung beantwortet ist, lasse den Thread offen.
Unten ist ein Makro Code der zeigt wie man eine Zelle in Datum und Uhrzeit aufteilen kann.
Dabei ist für die Variable zu beachten ob die Zelle als Datum oder als Text formatiert ist?
Wenn man es nicht weiss die Variable besser auf Variant setzen.
Auf Select bitte verzichten, man kann .Value direkt hinten dransetzen: Range("B1").Value = xxx
Steht dort "Datum, Uhrzeit" versteht Excel das schlicht und einfach als Text, nicht als Datum!!
mfg Piet
'Textdatei als Datum einlesen

Sub Datum_aufteilen()
Dim Datum As Date, DatTxt As String
DatTxt = Range("A1")    'Zelle als Text formatiert
Datum = Range("A2")     'Zelle als Datum formatiert
Range("B1") = CDate(Mid(DatTxt, 1, 10))
Range("C1") = Format(Right(DatTxt, 8), "h:mm:ss")
Range("B2") = CDate(Mid(Datum, 1, 10))
Range("C2") = Format(Right(Datum, 8), "h:mm:ss")
End Sub

Hallo Eric,
mit deiner hochgeladenen Testdatei funktioniert das mit diesem Code:

Sub Makro1()
Dim rngBereich As Range
Dim loLetzte As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
Set rngBereich = .Range(.Cells(1, 1), .Cells(loLetzte, 1))
rngBereich.TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
.Columns(3).Delete
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Spalte C muss gelöscht werden, da bei Text in Spalten auch noch das AM bzw. FM mitgeliefert wird und das in Spalte C eingetragen wird.
Gruß Werner

	A	B	C	D
1	Time		heat energy [MWh]	power [kW]
2	14.02.2017	09:25	270,41	271,97
3	14.02.2017	09:35	270,45	239,89
4	14.02.2017	09:45	270,49	206,24
5	14.02.2017	09:55	270,52	168,06
6	14.02.2017	10:05	270,55	136,13
7	14.02.2017	10:15	270,57	115,67
8	14.02.2017	10:25	270,58	90,43
9	14.02.2017	10:35	270,6	68,06

Zellinhalt (Datum und Uhrzeit ) aufteilen

Forumthread: Zellinhalt (Datum und Uhrzeit ) aufteilen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial