Werte in eine Textdatei schreiben
11.08.2003 15:06:17
Martin
habe im Archiv ein Makro gefunden, das mir aus excek heraus etwas in eine textdatei schreibt. Das funktioniert tatsächlich, solange das, was geschrieben werden soll, ein 'String' ist.
Ich möchte aber die Werte einer Range in die txt kopieren und das Makro bricht bei mir ab, mit dem Hinweis auf 'Type mismatch'
Was mache ich falsch?
Sub Test()
Dim rngDataFrom As Range
Set rngDataFrom = ActiveWorkbook.Sheets("hier").Range("txt")
Open "c:\@\Datei.txt" For Output As #1
Print #1, rngDataFrom
Close #1
End Sub
Gruss,
Martin
Anzeige