Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabelle in Textdatei formatieren

Forumthread: Tabelle in Textdatei formatieren

Tabelle in Textdatei formatieren
15.05.2002 08:22:20
Thomas L.
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


Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Tabelle in Textdatei formatieren
15.05.2002 15:57:54
Wolfgang
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
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige