Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte in eine Textdatei schreiben

Werte in eine Textdatei schreiben
11.08.2003 15:06:17
Martin
Hallo,
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

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in eine Textdatei schreiben
11.08.2003 15:19:45
Jochen
rngDataFrom
ist ein Objekt, kein String
Gruß Jochen

Einfacher ist manchmal besser....
11.08.2003 15:19:50
Ramses
Hallo

Sub Test()
Open "C:\demo.txt" For Output As #1
Print #1, Range("a1").Text
Close #1
End Sub

Mit dem Printbefehle kannst keinen ganzen Textblock auf einmal schreiben...., sondern immer schön Zelle für zelle ;-)
Gruss Rainer

AW: Einfacher ist manchmal besser....
11.08.2003 16:04:46
Martin
gibt mir leider nur NULL raus.
Die Lösung ist aber oben geschildert.
Danke!
Martin

AW: Einfacher ist manchmal besser....
11.08.2003 16:31:15
Ramses
Hallo,
"...gibt mir leider nur NULL raus."
Tut es sicher nicht, weil das Makro, mit Ausnahme der Schleife von Andreas, identisch ist.
Anyway...
Gruss Rainer

Anzeige
AW: Einfacher ist manchmal besser....
11.08.2003 21:59:03
Martin
Ist aber so. Vielleicht, weil ich eine Range als Range deklariert habe?
Gruss,
Martin

AW: Werte in eine Textdatei schreiben
11.08.2003 15:23:06
Andreas Walter

Sub Test()
Dim rngDataFrom As Range
Set rngDataFrom = ActiveWorkbook.Sheets("Tabelle3").Range("A1:G11")
Open "c:\Datei.txt" For Output As #1
For Each x In rngDataFrom
Print #1, x
Next
Close #1
End Sub


funktioniert tadellos! Danke (oT)
11.08.2003 16:03:57
Martin
M.

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige