Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Spalten aus Tabelle in Textdatei

Spalten aus Tabelle in Textdatei
01.10.2003 10:38:42
Dirk
Guten Morgen zusammen!

Hallo, ich brauch mal wieder eure Hilfe.
Wie kann ich denn zwei Spalten einer Zeile verbunden durch einen ":" in eine Textdatei schreiben/exportieren, so dass für jede Zeile auch eine neue in der Textdatei genommen wird.
Die Textdatei sollte dann so aussehen:
xxxx:xxxxx
xxxx:xxxxx
...
(Inhhalt von Spalte x : Inhalt von Spalte y).

Wenn möglich mit Angabe von und bis zu welcher Zeile das ganze gemacht werden soll.
Hat jemand eine Ahnung? Danke schon mal.

Gruß, Dirk

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten aus Tabelle in Textdatei
01.10.2003 10:54:27
Reinhard
Hi Dirk,
ungetestet:

x=...
y=...
open "c:\temp\test.txt" for output as #1
for n= 5 to 20
print #1, cells(n,x).value & ":" & cells(n,y).value
next n
close #1

Gruß
Reinhard
Reinhard
AW: Spalten aus Tabelle in Textdatei
01.10.2003 11:25:13
Dirk
Hallo, leider funktioniert es nicht mit der Meldung
"Anwendungs- oder objektdefinierter Fehler".
Bei mir hat es dann so ausgesehen:


Sub test()
Open "c:\temp\test.txt" For Output As #1
For n = 2 To 50
Print #1, Cells(n, D).Value & ":" & Cells(n, E).Value
Next n
Close #1
End Sub


D und E sollte dabei für die Spalte stehen. Ist doch richtig, oder?
Anzeige
Brauch immer noch Hilfe!!!
01.10.2003 12:43:49
Dirk
Hat noch jemand eine Idee, denn o. g. funktioniert leider nicht.
Gruß, Dirk
AW: Brauch immer noch Hilfe!!!
01.10.2003 13:15:54
Reinhard
Hi Dirk,
das Gleiche nochmal, diesmal komplett funktionsfähig:

Option Explicit

Sub Durk()
'Annahme, Werte stehen im Bereich D5:E20
Dim Spalte1 As Integer
Dim Spalte2 As Integer
Dim Zeile As Long
Spalte1 = 4 'Spalte 4 == Spalte D
Spalte2 = 5 'Spalte 5 == Dpalte E
Open "c:\temp\test.txt" For Output As #1
For Zeile = 5 To 20
Print #1, Cells(Zeile, Spalte1).Value & ":" & Cells(Zeile, Spalte2).Value
Next Zeile
Close #1
End Sub


Gruß
Reinhard
Anzeige
Danke, jetzt funzt es
01.10.2003 15:33:24
Dirk
Vielen Dank!!!
Danke für die Rückmeldung o.w.T
01.10.2003 18:42:11
Reinhard
.

320 Forumthreads zu ähnlichen Themen


Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige