Herbers Excel-Forum - das Archiv

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

Excel-Beispiele zum Thema "Tabelle in Textdatei formatieren"
Suche über mehrere Tabellen Benennen von Tabellenblättern mit Monatsnamen
Druckseitenlinien im Tabellenblatt Tabellenblattnamen in ein Listenfeld einlesen
Suchbegriff über mehrere Tabellenblätter suchen. Tabellenblätter benennen
Tabellenblatt auswählen Zustand von Tabellenblatt-Checkboxes ermitteln
Tabellenblattnamen der VBE-Projekte ändern Tabellenblattnamen nach Datum