Tabelle in Textdatei formatieren



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Tabelle in Textdatei formatieren
von: Thomas L.
Geschrieben am: 15.05.2002 - 08:22:20

Hallo Leute,

Mein Problem besteht darin, das Werte aus einer Tabelle in ein bestimmtes Textformat erscheinen soll.

Meine Werte in der Tabelle stehen so zur verfügung:

---------A----------B----------C--------D
1 ------500------250-----10----text
2 ------250-------50------5----text

Diese sollen jetzt in eine Textdatei (.txt) geschrieben werden mit dem Format:

l=500; b=250; s=10; bt=text
l=250; b=50; s=5; bt=text

es muß aber jede Zeile der Tabelle eine Eigene Zeile in der Textdatei sein.

Wer kann mir bei dieser komischen Sache behilflich sein.

Besten Dank im Voraus.

MfG

Thomas


nach oben   nach unten

Re: Tabelle in Textdatei formatieren
von: Wolfgang
Geschrieben am: 15.05.2002 - 15:57:54

Sub TabinText()
Dim TDat(2, 4), TTxt(2)
' Daten aus Tabelle - zwei Zeilen, 4 Spalten
For I = 1 To 2 ' Zeilenzähler
For Y = 1 To 3 ' Spaltenzähler
TDat(I, Y) = Cells(I, Y)
Next Y
TTxt(I) = Cells(I, 4) ' Text aus Spalte 4
Next I
' .txt schreiben
Open "C:\WINDOWS\Desktop\Probe.txt" For Output As #1
For I = 1 To 2
For Y = 1 To 3
Print #1, TDat(I, Y);
Next Y
Print #1, TTxt(I)
Next I
Close #1
End Sub
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Tabelle in Textdatei formatieren"