Clever-Excel-Forum

Hallo Zusammen,

ich bräuchte eine kleine Unterstützung!

Es geht um die Zelle B3 dass nach unterschiedlichen Zeiten ein Update bekommt.
Das VBA-Script fügt in memo1.txt einen neuen Eintrag in der letzten Zeile hinzu und nicht am Anfang.

Beispiel:
erstelle eine Text-Datei mit dem Namen in "C:\Test\memo1.txt"
Führe das Script aus
Ändere den Text in B3, z.B. in „Bla bla Bla“
Führe VBA-Script nochmal aus
Es schreibt den Wert aus der Zelle B3 am Ende der Text-Datei

ich möchte erreichen dass der Wert von B3 nicht immer am Ende des Text-Datei eingefügt wird sondern am Anfange der Text-Datei, also neues Datum immer zuerst.

Danke für die Hilfe

Code:
Sub M_snb()

  Open "G:\OF\voorbeeld.txt" For Input As #1

    c00 = Input(LOF(1), #1)

  Close

  Open "G:\OF\voorbeeld.txt" For Output As #1

    Write #1, , Format(Now, "yyyy/mm/dd hh.mm.ss||") & Cells(3, 2).Value & c00

  Close

End Sub

das Script fügt zusätzlich am Ende jeder Zeile in der Text-Datei ein " hinzu.

kann man es verhindern?

Code:
Sub M_snb()

  Open "G:\OF\voorbeeld.txt" For Input As #1

    c00 = Input(LOF(1), #1)

  Close

  Open "G:\OF\voorbeeld.txt" For Output As #1

    Print #1, Format(Now, "yyyy/mm/dd hh.mm.ss||") & Cells(3, 2).Value & c00

  Close

End Sub

... jetzt funktioniert es

Besten Dank und ein schönes WE

Alternative:

Code:
Sub M_snb()

  With CreateObject("scripting.filesystemobject")

    .createtextfile("G:\OF\memo.text").write Format(Now, "yyyy/mm/dd hh.mm.ss||") & Cells(3, 2) & vbCrLf & .opentextfile("G:\OF\memo.text").readall

  End With

End Sub

Tom2020

snb

Tom2020

snb

Tom2020

snb