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

Mit Hilfe von VBA Text untereinander

Forumthread: Mit Hilfe von VBA Text untereinander

Mit Hilfe von VBA Text untereinander
01.07.2002 08:36:04
Manuel
Halle Excel-Welt,

ich habe ein Problem, es ist so das ich ein makro habe das mir Textdateien ausliest und dann die einzelnen zeilen der textdatei in einzelne Zellen "nebeneinander" einfügt. Der Name der Textdatei wird auch in der Tabelle angezeigt.

Zur besseren Verständnis:

Jetzt sieht es so aus:

|| Name der Textfile || 1.Zeile || 2.Zeile || 3.Zeile|| ... || ..

Später soll es aber so aussehen

|| Name der Textfile Nr 1 ||
|| Inhalt Zeile 1 ||
|| Inhalt Zeile 2 ||
...

|| Name der Textfile Nr 2 ||
|| Inhalt Zeile 1 ||
|| Inhalt Zeile 2 ||
...

mein bisheriges Makro:


Sub Auslesen()
Dim arrFiles As Variant
Dim intCounter As Integer, intCol As Integer
Dim strPath As String, txt As String
strPath = Application.InputBox("Geben Sie den Pfad der TXT Dateien an:")
arrFiles = FileArray(strPath, "*.txt")
Close
For intCounter = 5 To UBound(arrFiles)
Cells(intCounter, 1) = arrFiles(intCounter)
Open strPath & arrFiles(intCounter) For Input As #1
intCol = 1
Do Until EOF(1)
Line Input #1, txt
intCol = intCol + 1
Cells(intCounter, intCol) = txt




Loop
Close
Next intCounter
End Sub
Function FileArray(strPath As String, strPattern As String)
Dim arrDateien()
Dim intCounter As Integer
Dim strDatei As String
If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
strDatei = Dir(strPath & strPattern)
Do While strDatei <> ""
intCounter = intCounter + 1
ReDim Preserve arrDateien(1 To intCounter)
arrDateien(intCounter) = strDatei
strDatei = Dir()
Loop
If intCounter = 0 Then
ReDim arrDateien(1)
arrDateien(1) = False
End If
FileArray = arrDateien
End Function


Ich hoffe ihr könnt mit weiterhelfen

vielen Dank

Manuel

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Mit Hilfe von VBA Text untereinander
01.07.2002 15:00:42
Nike
Hi,
vielleicht hilft es ja schon, wenn du am ende einfach
alle Werte, die nebeneinander stehen auswählst,
kopierts und dann mit rechtem Mausklick Inhalte Einfügen
auswählst, dabei noch rechts unten ein Häckchen bei Transponieren
machst...
Ansonsten müßte man schaun, wo man das Makro noch tunen müßte...

Bye

Nike

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
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