Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
560to564
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdateien- bei Ausgabe . zusammenfassen

Textdateien- bei Ausgabe . zusammenfassen
05.02.2005 12:48:45
Peter
Hallo,
es liegen mehere Textdateien mit dem gleichen Aufbau vor.
Ich möcht diese Textdateien mit dem Namen: Probe1.txt, Probe3.txt,Probe4.txt und
Probe5.txt in das Arbeitsblatt "Zusammen" untereinander einlesen.
Die Spaltenüberschrift steht in Spalte 4.
Wer kann helfen?
Peter

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

Betreff
Datum
Anwender
Anzeige
AW: Textdateien- bei Ausgabe . zusammenfassen
alex
könnte so funktionieren, wenn ich dich richtig verstanden habe.
keine Ahnung welche trennzeichen verwendet werden, also stehen in diesem BEispiel
die daten alle in einer spalte, kann ja anschließend mit text in spalten bearbeitet werden.
zu öffnene dateien mit
dateiarray = Application.GetOpenFilename(, , , , True)
kann man/sollte man das multiselect einschalten
vba schreibt die dateien in array
schleife über die ausgewählten dateien
zähler2=0
sheets("Zusammen").select
range("A1").select
for i=1 to ubound(Dateiarray)
'Datei1 mit pfad
zähler =0
zähler2=zähler2+1
Open "DATEI1" For Input As #1 ' Datei öffnen.
Do While Not EOF(1) ' Schleife bis Dateiende.
Line Input #1,zeichen1
zähler=zähler +1
activecell.offset(zähler2,0).value=zeichen1 'schreibt daten untereinander in blatt
Loop
Close #1 ' Datei schließen.
next
Anzeige
AW: Textdateien- bei Ausgabe . zusammenfassen
alex
kleiner Fehler
Datei1 muß dateiarray(i) sein

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige