Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
976to980
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
976to980
976to980
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datentransformation von .txt in ein excel-sheet

Datentransformation von .txt in ein excel-sheet
20.05.2008 10:09:00
.txt
Hallo,
ich habe die Aufgabe Daten (Messwerte einer technischenAnlage) die in einer .txt-Datei aufgezeichnet wurden, in ein Excel Tabellenblatt zu bekommen um dort grafische Auswertungen zu machen.
Wie könnte das Makro dafür aussehen?
Die Daten stehen in der .txt-Datei in etwa folgender Form:
15.5.2008 00:00:01 0 0 1 68 70 36(weitere werte in zeile)
15.5.2008 00:00:11 0 0 1 67 70 36 ....
Danke für eure Unterstützung.
christian

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 10:12:30
.txt
Hallo,
Trennung nach Leerzeichen?
Das kann der Textkonvertierungsassistent.
Alternativ: Daten-Text in Spalten.
Gruß
Rudi

AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 10:26:00
.txt
Hallo Rudi,
im Prinzip ja. Wie du an meinem Level erkennen kannst, habe ich bisher von VBA nur gehört aber nie damit gearbeitet. Jetzt muss ich das aber.
kannst du mir den Makro-Text wiedergegen?
Der Hintergrund ist der:
Jeden Tag laufen alle zehn sekunden daten auf, die bislang nur tagweise (seit etwa november) in .txt abgespeichert wurden.
Für z.B. grafische Auswertungen ist das jedoch unbrauchbar. Deshalb die Transformation jeder .txt. in Excel.
christian

Anzeige
AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 10:43:00
.txt
Hallo Christian,
aber das versuchte Dir Rudi doch zu sagen: Du benötigst kein Makro, sondern nutzt die Funktion von Excel zum Öffnen von Text-Dateien, in der Du einstellen kannst, dass Leerzeichen als Trennzeichen interpretiert werden sollen. "ABC 123" würde allso in eine Zelle mit "ABC" und eine weitere mit "123" aufgeteilt.
Gruß, Jürgen

AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 10:54:02
.txt
Danke für den Hinweis, Jürgen.
das heißt ich muss händisch für ca. 100 txt-dateien, den selben Vorgang ausführen?
christian

AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 11:26:29
.txt
Hallo,
von 100 Dateien war nicht die Rede.
Wenn du aber für jede der Dateien ein Diagramm erstellen willst, dauert das erheblich länger als das Öffnen und konvertieren.
Gruß
Rudi

Anzeige
AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 11:32:10
.txt
Hallo,
mein Fehler, hatte mich nicht ganz klar ausgedrückt.
Das mit den Diagrammen sei erst mal hinten angestellt.
Meine Frage bezog sich darauf, ob sich für diese Transformation (immer wiederkehrender ablauf, für ca. 100 dateien) eine Vereinfachung statt des händischen Vorgehens finden lässt.
christian

AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 11:46:17
.txt
Hallo,
natürlich geht's bequemer per Makro.
Es ist zwar lästig, 100 Dateien von Hand zu konvertieren, aber das dauert weniger als 1 Minute pro Datei. D.h. du könntest schon fertig sein, während du hier auf eine Antwort wartest. ;-)
Gruß
Rudi

Anzeige
AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 11:49:32
.txt
hallo,
und könntest du mir beispielhaft den code dafür wiedergeben? Bin, wie gesagt, blutiger Anfänger in dieser Sache.
Danke
christian

AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 12:04:07
.txt
Hallo,
z.B. so:

Sub Text_holen()
Dim strDatei As String
Const strPfad As String = "c:\test\"  'anpassen
strDatei = Dir(strPfad & "*.txt")
Do While strDatei  ""
Workbooks.OpenText Filename:=strPfad & strDatei, _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False
strDatei = Dir
Loop
End Sub


Gruß
Rudi

Anzeige
AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 13:17:58
.txt
Hallo,
danke für das Beispiel.
Ich würde jetzt folgendermaßen vorgehen (mein Nichtwissen vorausgesetzt):
Den Code entsprechend modifizieren, in den Eitor schreiben, eine .vbs daraus machen und ablaufen lassen.
Wär das eine Lösung?
Danke.
christian

AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 13:33:00
.txt
Hallo,

eine .vbs daraus machen


Das geht nicht. VBA ist nicht VB!
Code in ein Modul kopieren, anpassen und laufen lassen.
Dann hast du aber 100 Mappen offen.
Gruß
Rudi

AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 14:31:04
.txt
Ok, hab das jetzt in ein modul eingefügt (probeweise nur eine .txt ins verzeichnis eingefügt).
Macht aber nichts.
Im angegebenen Verzeichnis sollte ja eine .xls-file entstehen, oder?
christian

Anzeige
AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 14:46:16
.txt 

Im angegebenen Verzeichnis sollte ja eine .xls-file entstehen, oder?


Das ist mir neu. Davon war nie die Rede.
Gruß
Rudi

AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 14:52:33
.txt 

Das ist mir neu.


Das ist doch mein anliegen: Mache aus (einer oder/und mehreren .txt eine jeweilige .xls.
Was müsste demnach verändert werden.
christian

AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 15:12:23
.txt
in ein Modul:

Sub TXT2XLS()
'Alle .txt (Trennzeichen Leerzeichen) eines Ordners in .xls umwandeln
Dim oFS As Object, oFolder As Object, oFile As Object
Dim strFolder As String
Const strDelimiter As String = " " 'Leerzeichen
Dim strTxt As String, myArr, lngL As Long, WKS As Worksheet, iFREE As Integer
With Application.FileDialog(4)
.InitialFileName = "c:\"
.InitialView = 2
.Title = "Bitte einen Ordner wählen"
If .Show = -1 Then
strFolder = .SelectedItems(1)
Else
Exit Sub
End If
End With
On Error GoTo FEHLER
DoEvents
Application.ScreenUpdating = False
Set oFS = CreateObject("scripting.filesystemobject")
Set oFolder = oFS.getfolder(strFolder)
iFREE = FreeFile
For Each oFile In oFolder.Files
If oFile.Name Like "*.txt" Then
lngL = 1
Open oFile For Input As iFREE
Set WKS = Workbooks.Add(1).Sheets(1)
Do Until EOF(iFREE)
Line Input #iFREE, strTxt
myArr = Split(strTxt, strDelimiter)
With WKS
.Range(.Cells(lngL, 1), .Cells(lngL, UBound(myArr) + 1)) = myArr
End With
lngL = lngL + 1
Erase myArr
Loop
Close #iFREE
With WKS.Parent
.SaveAs Replace(oFile, ".txt", ".xls"), xlWorkbookNormal
.Close False
End With
Set WKS = Nothing
End If
Next oFile
AUFRAEUMEN:
Set oFile = Nothing
Set oFolder = Nothing
Set oFS = Nothing
Application.ScreenUpdating = True
Exit Sub
FEHLER:
If Err.Number Then
MsgBox "Fehler!" & vbLf & Err.Description
Err.Clear
Resume AUFRAEUMEN
End If
End Sub


Anzeige
AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 15:48:19
.txt
Soweit so gut, (fast alles super). danke für die Mühe.
Die Datei wird erzeugt, Name ok.
Die Trennung nach Zeilen funzt auch. Allerdings nimmt er innerhalb der Tabelle keine Trennung nach Spalten vor.
Er schreibt alles in die erste Spalte. (Es taucht dieses rechteckige zeichen zwischen den werten auf)
Gibts dafür noch ne einfache Lösung?
danke
christian

AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 16:02:00
.txt
Du hast Leerzeichen-getrennten Text als Bsp. gepostet. Das Trennzeichen ist ein anderes, vemutlich TAB.
Passe an:
const strDelimiter as string = vbTab 'anstatt " "

AW: Datentransformation von .txt in ein excel-sheet
20.05.2008 16:25:00
.txt
SUPER, ALLES FUNKTIONIERT !!!
Nochmals Danke für die Mühe und die Geduld!
christian
Anzeige

300 Forumthreads zu ähnlichen Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Anzeige
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
2
14
3
1
4
2
5
2
5
6
4
4
2
1
1
6
1
4
4
1
1
8
2