Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Arrays aus verschiedenen Tablettenblättern in .txt

Arrays aus verschiedenen Tablettenblättern in .txt
12.12.2018 15:25:40
Gerd
Hallo liebes Forum,
ich bin etwas am verzweifeln.
Ich suche eine Möglichkeit jede einzelne Zeile meiner Tabellenblätter einzulesen und in eine Textdatei auszugeben. Dabei sollen diese per Semikolon getrennt werden:
Tabelle1;Tabelle2;Tabelle3;Tabelle4;...
ZEILE1:kfjslfzs;53249879;jsdgokdk;54h66543;...
Tabelle1;Tabelle2;Tabelle3;Tabelle4;...
ZEILE2:hgffbf;76585;jsdgokdk;54h66543;...
Tabelle1;Tabelle2;Tabelle3;Tabelle4;...
ZEILE3:kfjslfzs;53249879;jsdgokdk;54h66543;...
usw...
Meine Idee: Jede Zeile eines Tabellenblatts in ein Array speichern und dann die Tabellenblätter durchlaufen und das Array ergänzen.
Ich bin schon etwas am verzweifeln. Ich habe die Join()-Funktion versucht, die nicht wirklich funktioniert.
Ansatz:
strFile = "C:\Temp\VNR_anlegen_output.txt"
vntText = Sheets("KR Änderdialog").Range("A3:E3")
strTmp = Join(vntText, ";")
Open strFile For Output As #1
Print #1, strTmp
Close #1
Kann mir bitte jemand hier weiterhelfen?
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arrays aus verschiedenen Tablettenblättern in .txt
12.12.2018 15:46:50
Maik
Hallo Gerd,
ich würde es so versuchen:
Eine neues Register erstellen (als erstes Register)
hier den sWert aus der nachfolgenden Formel kopieren
dann das Register als Textdatei speichern
sWert=Sheets("Tabelle1").Cells(1, 1) & ";" & Sheets("Tabelle3").Cells(1, 1) & ";" & Sheets("Tabelle3").Cells(1, 1) & ";" usw.
Maik
Anzeige
AW: Arrays aus verschiedenen Tablettenblättern in .txt
12.12.2018 16:41:31
PeterK
Hallo
So gehts (nur ein kleines Beispiel, wenn Du über Zeilen gehen willst (z.B. Range("A5:A10")) genügt ein Aufruf von Application.Transpose)

Dim myR As Variant
myR = Application.Transpose(Application.Transpose(Range("A3:E3")))
Debug.Print Join(myR, ";")

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
Anzeige

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