Datum

Titel

17.04.2024 21:55:37

Preiserhöhung über mehrere Jahre berechnen

17.04.2024 20:19:32

Endzeitpunkt berechnen aus d:hh:mm errechnen

17.04.2024 18:57:33

Errinnerungsfunktion

17.04.2024 16:56:58

Stunden addieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

132to136

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Daten aus TXT untereinander wieder geben.

Forumthread: Daten aus TXT untereinander wieder geben.
6 Beiträge zu diesem Forumthread
Anzeige
305 Threads zu ähnlichen Themen
Top 100 Forumthreads

28.06.2002 15:37:36

Deston

Sorry das ich das jetzt wiederholen muss, aber ich glaube meine letzte Nachricht ist irgendwie untergegangen

Hallo Excel-Welt!
Ich habe nen problem damit daten aus einer txt file in richtiger reihenfolge in eine exceltabelle zu importieren.

es soll immer oben der name der txt stehen und da drunter immer der inhalt der datei. (jede zeile der txt in eine neue Zelle in excel, immer untereinander) Ich weis leider nicht genau wie ich das in VBA hinbekommen soll.

habt ihr eine Ahnung wie?

Vielen Dank schonmal

Deston

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Daten aus TXT untereinander wieder geben.

28.06.2002 15:40:35

Frank P
Re: Daten aus TXT untereinander wieder geben.

28.06.2002 15:50:55

Deston
Re: Daten aus TXT untereinander wieder geben.

28.06.2002 15:54:42

PeterW
Re: Daten aus TXT untereinander wieder geben.

28.06.2002 15:57:30

Deston
Brauche dazu wirklich dringend Hilfe

28.06.2002 16:11:34

Deston
Re: Brauche dazu wirklich dringend Hilfe

28.06.2002 16:34:38

Nike

Re: Daten aus TXT untereinander wieder geben.

28.06.2002 15:40:35

Frank P

Antwort siehe:
https://www.herber.de/forum/messages/132244.html

Re: Daten aus TXT untereinander wieder geben.

28.06.2002 15:50:55

Deston

Naja, ich habe da ja schon nen VBA Makro was mir die daten ausliest, aber es schreibt mir das halt net untereinander... deswegen hoffe ich mal das ich von irgendeinem von euch nen ratschlag bekomme...

hoffentlich hat einer von euch einen lösungsvorschlag

Deston

Re: Daten aus TXT untereinander wieder geben.

28.06.2002 15:54:42

PeterW

Hallo Deston,

ein guter Anfang wäre es, diese vorhandene Makro hier zu posten. Anders ist es schwierig zu sagen, warum das Makro nicht das macht, was Du möchtest.

Gruß
Peter

Re: Daten aus TXT untereinander wieder geben.

28.06.2002 15:57:30

Deston

Sorry, beim nächstenmal kommt es sofort!

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

Brauche dazu wirklich dringend Hilfe

28.06.2002 16:11:34

Deston

Bitte meldet euch!!

Re: Brauche dazu wirklich dringend Hilfe

28.06.2002 16:34:38

Nike

Hi,
und wie sieht die .txt Datei aus?
Wieviele Spalten?
Wenn mehr als eine, dann untereinander oder geschachtelt?
Ginge es denn nicht auch mit Import Assi?

Bye

Nike