Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
120to124
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
120to124
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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


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

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige