Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro zur Ausgabe als txt-Datei

Makro zur Ausgabe als txt-Datei
01.07.2005 12:25:27
Ingo
Hallo
Ich hoffe mir kann jemand weiter helden.
Ich bräuchte ein Makro, dass mir Spalten A-I, mit Komma abgetrennt, in eine txt-Datei ausgibt.
Leider kenne ich mich nicht mit dem Schreiben von Makros unter Excel aus und da es sehr eilig ist, würde es wohl auch zu lange dauern, dass ich es mir eben mal selbst beibringe :(
Wäre also nett, wenn mir das jemand kurz zeigen könnte.
Die Ausgabe in der txt-Datei müsste so aussehen:
Z.B.:
1000,2000,3000,4000,5000,6000,7000,8000,9000,
Schonmal danke für jegliche Hilfe.
MfG
Ingo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zur Ausgabe als txt-Datei
01.07.2005 12:47:20
Alexander
Gib mal im Suchfeld den Begriff "TXT" ein. Da ist ein langer Thread, der dein Problem lösen sollte.
AW: Makro zur Ausgabe als txt-Datei
01.07.2005 13:01:16
ede
hallo
versuchs mal damit

Sub export2txt()
Dim sFile As String
sFile = "c:\export.txt"
Close
Open sFile For Output As #1
Zeilen = 10  ' für 10 Zeilen
spalten = 9 ' für A..I
For z = 1 To Zeilen
mytext = ""
For s = 1 To spalten
mytext = mytext & Cells(z, s).Value & ","
Next s
Print #1, mytext
Next z
Close
End Sub

--
viel erfolg
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige