Zellinhalt (Datum und Uhrzeit ) aufteilen

Hallo,
ich möchte aus einer eingelesenen Textdatei ein Zellinhalt der aus einem Datum und einer uhrzeit besteht in zwei Zellen per Makro aufteilen.
Das aufgezeichnete Makro funktioniert aber nicht.
Sub TabelleTrennen() ' TabelleTrennen Makro Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _ Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 0)), TrailingMinusNumbers:=True Range("A1").Select ActiveCell.FormulaR1C1 = "Datum" Range("B1").Select ActiveCell.FormulaR1C1 = "Uhrzeit" End Sub Kann mir jemand weiterhelfen?
Vielen Dank! Eric

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Beliebteste Forumthreads (12 Monate)

	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

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

337 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellinhalt (Datum und Uhrzeit ) aufteilen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

337 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread