Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1312to1316
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
1312to1316
1312to1316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdatei mit Trennzeichen |

Textdatei mit Trennzeichen |
19.05.2013 09:51:08
Andre´
Hallo alle zusammen,
ich möchte gern mit einem Makro bestimmte Werte aus einer Textdatei in Excel schreiben.
hier eine TXT-Bsp.Datei: https://www.herber.de/bbs/user/85398.txt
und nachfolgend die Exceldatei mit den Werten die ausgelesen werden sollen
https://www.herber.de/bbs/user/85399.xls
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
MFG Andre

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textdatei mit Trennzeichen |
19.05.2013 10:31:56
Erich
Hi André,
hast du das nicht schon mit der Makroaufzeichnung versucht?
Bei mir erzeugt die im Prinzip das hier (Filename anpassen): 

Sub OeffneTxt()
Workbooks.OpenText Filename:="F:\exc\www\tmp\85398.txt", Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=False, _
Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array( _
Array(1, 1), Array(2, 9), Array(3, 9), Array(4, 9), Array(5, 9), _
Array(6, 9), Array(7, 9), Array(8, 9), Array(9, 1), Array(10, 9), _
Array(11, 1)), TrailingMinusNumbers:=True
End Sub
Schöne Pfingsten!
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
AW: Textdatei mit Trennzeichen |
19.05.2013 10:56:22
Andre´
Hallo Erich,
erstmal Danke für die Meldung.
Ich möchte erreichen, dass die Daten in der geöffneten Datei geschrieben werden und keine neue Datei geöffnet wird.
Problem ist auch, dass die Orginaldatei eine CSV-Datei ist deshalb wollte ich diese öffnen mit:
...
Open Buchung For Input As #1
sText = Input(LOF(1), 1)
Close 1
arrText = Split(sText, vbLf)
...
das funktioniert aber nicht.
Kann man das anders splitten?
MFG Andre

AW: Textdatei mit Trennzeichen |
19.05.2013 10:51:55
Tino
Hallo,
sollte hiermit funktionieren.
Sub Lese_TxT()
Dim sInhalt$, sFilename$
Dim n&, F%
Dim ArInhalt, varTXTRow, varTeil
Dim ArAusgabe()
sFilename = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If sFilename = CStr(False) Then Exit Sub

F = FreeFile
Open sFilename For Binary As #F
sInhalt = Space$(LOF(F))
Get #F, , sInhalt
Close

With Application.WorksheetFunction
    ArInhalt = Split(sInhalt, vbCr)
    For Each varTXTRow In ArInhalt
        varTeil = Split(.Clean(Replace(varTXTRow, Chr(34), "")), "|")
        If Ubound(varTeil) > 9 Then
            n = n + 1
            Redim Preserve ArAusgabe(1 To 3, 1 To n)
            ArAusgabe(1, n) = varTeil(0) 'pos 1 in TxT Zeile 
            ArAusgabe(2, n) = varTeil(8) 'pos 9 in TxT Zeile 
            ArAusgabe(3, n) = varTeil(10) 'pos 11 in TxT Zeile 
        End If
    Next varTXTRow
End With

'Ausgabe*************************** 
With Tabelle1
    .Range("A:C").ClearContents 'alte Daten löschen 
    If n > 0 Then
        ArAusgabe = Application.Transpose(ArAusgabe)
        .Range("A1").Resize(Ubound(ArAusgabe), Ubound(ArAusgabe, 2)) = ArAusgabe
    End If
End With
End Sub
Gruß Tino

Anzeige
AW: Textdatei mit Trennzeichen |
19.05.2013 11:50:07
Andre´
Hallo Tino,
vielen Dank für die Lösung, dies funktioniert auch für die csv Datei.
MFG Andre

152 Forumthreads zu ähnlichen Themen

Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
Anzeige
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Anzahl + und - von Prozentzahlen mit Kommas zählen
Prozentzahlen

Hallo,
ich bekomme das nicht hin. Ich sollte werte aus einer Spalte mit mehr als 2000 Zellen, welche Prozentzahlen positiv wie negativ wie z.B. -10,25%, +23,56%, -73,27% oder +33,68% usw. beinhalten. Dann sollte das ganze in 10% Schritten zusammengerafft werden können, sprich Anzahl der Zah...
09.07.2009 15:10:03
Thread-ID: 1087444
5 Beiträge
Anzeige
Zahlen mit Komma entfernen
Maris

Hallöchen :-),
kann mir jemand helfen? Ich möchte die Zahlen wegbekommen inkl. Komma und zwar von rechts...
Beispiel:
Vorher: Elektronik>Car_HiFi>Autoradios_und_Car_Audio,397.548 Nachher:
Elektronik>Car_HiFi>Autoradios_und_Car_Audio
Gruß
Maris
15.09.2010 15:53:48
Thread-ID: 1177836
17 Beiträge
Zellen mit gleichen Inhalten mit Pfeilen verbinden
Stef@n

Hallo Excel-Freunde,
mal eine für mich selber ungewöhnliche Frage ;)
Ich habe zwei Tabellen, die im Sheet nebeneinander stehen.
Einzelne Inhalte der Tabelle 1 sind auch in Tabelle 2 enthalten.
Diese jeweiligen Zellinhalte sollen mit einem Pfeil verbunden werden.
Wenn Zelli...
16.02.2011 12:59:15
Thread-ID: 1201122
7 Beiträge
Formel Verketten problem mit ""
Peter.H

Hallo Excel Forum
Ich bekomme folgendes Ergebnis nicht mit der Formel Verketten zustande...
=VERKETTEN("put """;Ordner_Basis;Anlage;"\jobs\";Job_Name;".job"" """;Job_Name;".job""""")
Ergebnis Ist : put "G:\Weser3\jobs\E243114Y804.job" "E243114Y804.job""
Ergebnis Soll: put "G:\W...
17.05.2011 16:40:56
Thread-ID: 1214862
4 Beiträge
Zellen mit Linien verbinden?
Marlon

Hallo Excel-Gemeinde,
ich hab ein Problemchen, bei dem ich nicht weiß, ob Excel/VBA hierfür überhaupt die richtigen Werkzeuge sind.
Ich möchte Zellen (mit gleichem Inhalt) mit einer Linie verbinden lassen.
Das sollte dann so aussehen:

Kennt jemand einen Ansatz für eine Lösu...
22.05.2011 14:57:46
Thread-ID: 1215489
2 Beiträge
Zeilen mit Komma Werten markieren
Stan

Hallo Excel Freunde,
Wie kann ich Zellen mit Kommawerten markieren?
Dim C As Range
Dim fAddr As String
With Cells
Set C = .Find(what:="aa", lookat:=xlPart) 'xlPart = enthält, ansonsten xlWhole
If Not C Is Nothing Then
fAddr = C.Address
Do
C.Interior.ColorInde...
30.06.2011 14:10:06
Thread-ID: 1220332
3 Beiträge
Anzeige

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
4
2
6
4
4
16
6
3
1
2
6
3
1
3
2
9
26
4
5
9
9
14
14
2
2