Text-Datei einlesen mit Datumsformat
30.01.2010 20:11:02
Andre´
Hallo alle zusammen,
mit nachfolgenden Makro lese ich eine TXT Datei ein.
https://www.herber.de/bbs/user/67649.txt
Option Explicit
Sub lesen()
Dim strTxt As String, arrTxt
Application.ScreenUpdating = False
Open "C:\Daten.txt" For Input As #1
Workbooks.Add
Do While Not EOF(1)
Line Input #1, strTxt
arrTxt = Split(strTxt, ";")
With Sheets(1)
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, UBound(arrTxt) + 1) = _
arrTxt
End With
Loop
Close 1
Sheets(1).Columns(2).NumberFormat = "dd/mm/yyyy hh:mm:ss"
Application.ScreenUpdating = True
End Sub
Wenn ich dann einen Filter setze erhalte ich für die Spalte B folgendes:
Ich möchte aber folgendes erhalten:
Dies habe ich erreicht, weil ich einzeln die Zellen mit F2 und anschließend
mit Enter bestätigt habe.
Wie kann ich dass mit einem Makro erreichen.
Vielen Dank im Voraus!
MFG Andre