Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1692to1696
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
1692to1696
1692to1696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TxtDatei auslesen

TxtDatei auslesen
16.05.2019 08:10:11
Michi
Hallo zusammen,
ich habe eine Textdatei, welche 7500 Zeilen hat. Ich müsste diese Textdatei auslesen, aber NUR die Werte in meine Zellen schreiben, die mit "dr1" beginnen. Wie muss ich da vor gehen? Habe bereits die komplette TxtDatei ausgelesen und alle Zeilen gelöscht, welche nicht mit "dr1" beginnen.
Dies ist jedoch suboptimal und dauert zu lange.
Also meine Frage: Wie kann ich eine Textdatei auslesen und nur die Werte in meine Zeilen eintragen, die mit "dr1" z.B. beginnen?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TxtDatei auslesen
16.05.2019 08:29:52
Martin
Hallo Michi,
es wäre sinnvoll mal eine Beispieldatei hochzuladen, damit wir die Struktur der Textdatei kennen. Oder du zeigst uns deinen anderen VBA-Code, wo die entsprechenden Zeilen gelöscht werden.
Viele Grüße
Martin
AW: TxtDatei auslesen
16.05.2019 08:41:04
ede
Hallo Michi,
wurde auch schon mehrfach hier behandelt, anbei nochmal ein Beispielcode: 

Private Sub Text_Import()
Dim i As Integer
'StartVerzeichnis - bitte anpassen
ChDrive "c:\"
ChDir "\temp"
'Dialogfenster Öffnen
sFile = Application.GetOpenFilename("alle Dateien (*.txt), *.txt")
If sFile  False Then
Close
Open sFile For Input As #1
i = 1
Do While Not EOF(1)
Line Input #1, strTxt
If Left(strTxt, 3) = "dr1" Then
Cells(i, 1).Value = strTxt
i = i + 1
End If
Loop
Close
End If
End Sub

gruss
ede
Anzeige
Fehlende Variablen-Deklaration
16.05.2019 08:50:51
Martin
Hallo ede,
ich war gedanklich von einer CSV-Datei ausgegangen. Bei deinem Code sind zwei Variablen nicht deklariert: 
Dim sFile as Variant, strTxt as String

Viele Grüße
Martin
AW: TxtDatei auslesen
16.05.2019 10:43:44
Michi
Ok danke für die Hilfe!
Jetzt habe ich noch eine Frage:
Wie kann ich einen String, der folgendermaßen aussieht:
"345 123 422 567 188"
So auftrennen, dass jede Zahl in einer eigenen Variable steht?
Sprich: nach jedem Leerzeichen eine neue Variable.
AW: TxtDatei auslesen
16.05.2019 11:08:32
UweD
Hi
so?
Sub trennen()
    Dim TText As String, Arr, i As Integer
    TText = "345 123 422 567 188"
    
    Arr = Split(TText, " ")
    
    For i = Lbound(Arr) To Ubound(Arr)
        MsgBox Arr(i)
    Next
    
End Sub

LG UweD
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige