Zeile fortlaufend nach Textdatei
02.10.2008 10:12:00
Daniel
in einer Tabelle wird laufend ein Wert berechnet. Nun möche ich mit Worksheet_Calculate
ein Makro aufrufen, das diesen Wert, untereinander (zeilenweise) in eine Textdatei schreibt.
Das habe ich bisher, ich dachte \n bewirkt einen Zeilenumbruch...tut es aber nicht. Stattdessen
wird die Zeile immer wieder überschrieben:
Sub DataToText()
Const fn = "C:\Daten.txt" 'Dateiname
Dim sh As Worksheet
Dim Bereich As Range
Dim Zeile As Range
Dim Zelle As Range
Dim s As String
Dim ff As Integer
ff = FreeFile
Open fn For Output As ff
s = Now & ";" & "Data" & "\n"
Print #ff, s
Close ff
End Sub
Anzeige