Microsoft Excel

Herbers Excel/VBA-Archiv

Text-Datei einlesen mit Datumsformat | Herbers Excel-Forum


Betrifft: Text-Datei einlesen mit Datumsformat von: Andre´
Geschrieben am: 30.01.2010 20:11:02

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

  

Betrifft: AW: Text-Datei einlesen mit Datumsformat von: Hajo_Zi
Geschrieben am: 30.01.2010 20:13:42

Hallo André,

Dein Bild past nicht zu der angebenen Version.
Es ist Text und kein Datum.
Multiplikation mit 1

GrußformelHomepage


  

Betrifft: AW: Text-Datei einlesen mit Datumsformat von: Andre´
Geschrieben am: 30.01.2010 20:38:02

Hallo Hajo,

erstmals Danke für Deine Meldung.
Meine Version natürlich 2007(Fehler von mir) :(

Hast Du einen Lösung, wie ich die Spalte B mit einem Makro
mit 1 multiplizieren kann oder bereits beim einlesen ins Datumsformat bringen kann.

MFG Andre


  

Betrifft: AW: Text-Datei einlesen mit Datumsformat von: Hajo_Zi
Geschrieben am: 30.01.2010 20:43:05

Hallo André,

dazu braucht man kein Mkro. Ich war davon ausgegangen bei Gut ist esklar.
Schreibe eine 1 in eine Zelle, diese Zelle kopieren, markiere Deinen Bereich, rechte Maustaste, Inhalte einfügen, im Dialog auswählen Multiplikation und ok

Gruß Hajo


  

Betrifft: AW: Text-Datei einlesen mit Datumsformat von: Andre´
Geschrieben am: 30.01.2010 21:07:11

Hallo Hajo,

diese Lösung kenne ich auch.
Eine Makro-Lösung wäre mir lieber.


MFG Andre


  

Betrifft: AW: Text-Datei einlesen mit Datumsformat von: Hajo_Zi
Geschrieben am: 30.01.2010 21:16:44

Hallo André,

bei Gut solltest Du den Makrorecorder kennen.

Gruß Hajo


  

Betrifft: AW: Text-Datei einlesen mit Datumsformat von: Andre´
Geschrieben am: 30.01.2010 21:46:12

Hallo Hajo,
mit Recorder und etwas verfeinert kommt folgendes heraus:

Sub Test()
    Range("D1").FormulaR1C1 = "1"
    Range("D1").Copy
    Range("B3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Range("D1").ClearContents
End Sub
MFG Andre


Beiträge aus den Excel-Beispielen zum Thema "Text-Datei einlesen mit Datumsformat"