Range
25.04.2006 19:25:26
Seppl
Ich glaub ich stehe auf dem Schlauch.
Ich möchte mit dem Unten stehendem Macro
Die Zellen Q8 bis Q1000 in einer txt-Datei speichern.
Aber er nimmt mir den Bereich nicht.
was muß ich ändern damit das Macro die Zellen Q8 bis Q1000 in die txt Datei schreibt.
Sub Textdatei()
Dim fs As Object, a As Object
'Datei "Test.txt" in D:\Eigene Dateien\ erzeugen
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\Eigene Dateien\S018001.txt", True)
a.Close
' Datei öffnen.
Open "D:\Eigene Dateien\S018001.txt" For Output As #1
Print #1, Range("Q8:Q100")
' Datei schließen.
Close #1
End Sub
Besten Dank
Gruß Sepp