Zell in Textdatei schreiben (1.Zeile)
14.05.2018 23:34:16
Tim
ist noch jemand wach?
Weiß jemand wie ich den Inhalt einer Zelle in eine Textdatei schreibe.
Allerdings in die 1. Zeile. Die bestehenden Zeilen sollen bestehen bleiben und einfach nur nach unten rutschen.
Folgender Code schreibt in die 1. freie Zeile. Neue Einträge sind also unten, ich hätte sie gerne oben....
Private Sub logSchreiben()
Dim intFF As Integer
Dim strLog As String
strLog = "d:\log.txt"
intFF = FreeFile
Open strLog For Append As #intFF ' Öffnet oder erstellt Textdatei zum hineinschreiben
Print #intFF, Cells(14, 7), Format(Now, "dd.mm.yyyy hh:mm") ' Schreibt den Wert _
aus G14 in die Datei
Close #intFF ' schließt die Textdatei
THX Gruß Tim
Anzeige