Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1728to1732
1728to1732
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus TXT-Datei auslesen und in Zellen eintragen?

Forumthread: Daten aus TXT-Datei auslesen und in Zellen eintragen?

Daten aus TXT-Datei auslesen und in Zellen eintragen?
28.12.2019 22:33:35
Sergej
Hallo Leute,
ich habe in der Datei S:\Daten\Prj\Service\data.txt zeilenweise verschiedene Einträge stehen:
Projektnummer: 002390099-TS
Projektname: Hochschule Herder
Zimmer:
Beleg:
Mitarbeiter:[name]
Datum: [date]
Firma:
Strasse:
Stadt:
Wie kann ich bitte per VBA folgendes erledigen:
1. nach Projektnummer: in der Textdatei suchen, dann den Text der danach kommt in die Zelle PNR eintragen
2. nach Projektname: in der Textdatei suchen, dann den Text der danach kommt in die Zelle PNAME eintragen
3. nach Mitarbeiter: in der Textdatei suchen, dann den Text der danach kommt in die Zelle B5 eintragen
usw.
Anmerkungen:
  • Wenn in der Textdatei in eckigen Klammern [name] steht, dann soll der Windows Benutzername ausgegeben werden.

  • Wenn in der Textdatei in eckigen Klammern [date] steht, dann soll das Datum im Form TT.MM.JJJJ ausgegeben werden.

  • Wenn in der Textdatei nach dem ersten Doppelpunkt kein Inhalt steht (siehe beispielsweise Zimmer:), dann für Zimmer nicht berücksichtigt werden

    • Herzlichen Dank im Voraus!
    Beste Grüße,
    Sergej
    Anzeige
    AW: Daten aus TXT-Datei auslesen und in Zellen eintragen?
    28.12.2019 23:05:30
    onur
    Hier kannst du Hilfe für kleinere Probleme bekommen, aber keine Komplettlösung. Dafür gibt es Auftragsprogrammierer.
    AW: Daten aus TXT-Datei auslesen und in Zellen eintragen?
    29.12.2019 00:12:01
    volti
    Hallo Sergej,
    deine Beschreibung ist nicht ganz eindeutig.
    Stehen in der Textdatei nur einmalig diese Eintragungen?
    Sind die Zielfelder benamt?
    Möchtest Du die Einträge einzeln per Aufruf extrahieren oder alle in einem Rutsch übernehmen?
    Hier mal eine mögliche Vorgehensweise:
    Sub DatenUebernehmen()
     Dim Data As String, sPfad As String, sDatei As String
     sPfad = "S:\Daten\Prj\Service"
     sDatei = "Data.txt"
     Close #1: Open sPfad & "\" & sDatei For Binary As #1
     Data = Space(LOF(1)): Get #1, , Data
     Close #1
     On Error Resume Next
     Range("PNR").Value = SucheInDaten(Data, "Projektnummer")
     Range("PName").Value = SucheInDaten(Data, "Projektname")
     Range("$B$5").Value = SucheInDaten(Data, "Mitarbeiter")
     Range("PDatum").Value = SucheInDaten(Data, "Datum")
     '....
    End Sub
    Function SucheInDaten(Data As String, ByVal sSuch As String) As String
    'Funktion ermittelt einen Eintrag aus Textdaten
     Dim P1 As Long, P2 As Long
     sSuch = Replace(sSuch, ":", "") & ":"
     P1 = InStr(Data, sSuch) + Len(sSuch)
     If P1 > Len(sSuch) Then
      P2 = InStr(P1, Data & vbCrLf, vbCrLf)
      SucheInDaten = Trim$(Mid$(Data, P1, P2 - P1))
      Select Case SucheInDaten
      Case "[name]": SucheInDaten = Environ$("Username")
      Case "[date]": SucheInDaten = Format$(Date, "dd.MM.yyyy")
      End Select
     End If
    End Function

    viele Grüße
    Karl-Heinz


    Anzeige
    AW: Daten aus TXT-Datei auslesen und in Zellen eintragen?
    29.12.2019 08:52:17
    volti
    Hier noch für Gesamtbearbeitung etwas optimiert:
    Sub Datenübernehmen()
     Dim sZeile As String, sArr() As String
     Close #1: Open "S:\Daten\Prj\Service\data.txt" For Input As #1
     While Not EOF(1)
      Line Input #1, sZeile
      sArr = Split(sZeile, ":")
      If UBound(sArr) > 0 Then
        Select Case Trim$(sArr(1))
        Case "[name]": sArr(1) = Environ$("Username")
        Case "[date]": sArr(1) = Format$(Date, "dd.MM.yyyy")
        End Select
        On Error Resume Next
        Select Case sArr(0)
        Case "Projektnummer": Range("PNR").Value = sArr(1)
        Case "Projektname":   Range("PName").Value = sArr(1)
        Case "Mitarbeiter":   Range("$B$5").Value = sArr(1)
        Case "Datum":         Range("PDatum").Value = sArr(1)
        '... usw.
        Case Else
        End Select
        On Error GoTo 0
      End If
     Wend
     Close #1
    End Sub

    viele Grüße
    Karl-Heinz
    Anzeige
    AW: Daten aus TXT-Datei auslesen und in Zellen eintragen?
    29.12.2019 10:41:18
    Sergej
    Einen wunderschönen guten Morgen Karl-Heinz,
    ich habe es getestet. Es funktioniert hervorragend! Herzlichen Dank!
    Lässt sich bitte nur das Leerzeichen direkt nach dem ersten Doppelpunkt des Suchbegriffs ignorieren, damit nachher der Zellinhalt keine Leerzeichen am Anfang hat?
    Bsp. Eintragungen vom Anwender:
    Projektnummer: 2019 2500880
    Projektnummer:2019 2500880
    Beste Grüße,
    Sergej
    Anzeige
    AW: Daten aus TXT-Datei auslesen und in Zellen eintragen?
    29.12.2019 11:54:29
    volti
    Hallo Sergej,
    ja natürlich lässt sich das eliminieren. Hatte ich vergessen.
    If UBound(sArr) > 0 Then
    sArr(1)=Trim$(sArr(1))
    Select Case sArr(1)
    viele Grüße
    Karl-Heinz
    AW: Daten aus TXT-Datei auslesen und in Zellen eintragen?
    29.12.2019 12:47:46
    Sergej
    Hallo Karl-Heinz,
    das funktioniert ebenfalls perfekt!
    Aller letzte Frage :-)
    Wenn die Zellen die Inhalte haben, dann sollen diese nicht aus den Einträgen der TXT-Datei überschrieben werden. Lässt sich dies bitte noch berücksichtigen?
    Beste Grüße,
    Sergej
    Anzeige
    AW: Daten aus TXT-Datei auslesen und in Zellen eintragen?
    29.12.2019 13:03:30
    volti
    Hallo Sergej,
    probiere mal dieses hier:
    Sub Datenübernehmen()
     Dim sZeile As String, sArr() As String, sZiel As String
     Close #1: Open "S:\Daten\Prj\Service\data.txt" For Input As #1
     While Not EOF(1)
      Line Input #1, sZeile
      sArr = Split(sZeile, ":")
      If UBound(sArr) > 0 Then
        Select Case Trim$(sArr(1))
        Case "[name]": sArr(1) = Environ$("Username")
        Case "[date]": sArr(1) = Format$(Date, "dd.MM.yyyy")
        End Select
        Select Case sArr(0)
        Case "Projektnummer": sZiel = "PNR"
        Case "Projektname":   sZiel = "PName"
        Case "Mitarbeiter":   sZiel = "$B$5"
        Case "Datum":         sZiel = "PDatum"
        '... usw.
        Case Else:            sZiel = ""
        End Select
        On Error Resume Next
        If sZiel <> "" Then
           If IsEmpty(Range(sZiel)) Then Range(sZiel) = Trim$(sArr(1))
        End If
        On Error GoTo 0
      End If
     Wend
     Close #1
    End Sub

    viele Grüße
    Karl-Heinz
    Anzeige
    AW: Daten aus TXT-Datei auslesen und in Zellen eintragen?
    29.12.2019 13:17:29
    Sergej
    Hallo Karl-Heinz,
    funktioniert auch perfekt. Vielen herzlichen Dank!
    Beste Grüße,
    Sergej
    AW: Daten aus TXT-Datei auslesen und in Zellen eintragen?
    29.12.2019 14:15:33
    Sergej
    Hallo Karl-Heinz,
    was muss ich bitte noch einstellen, damit das Makro an alle Arbeitsblätter der Datei angewendet wird?
    Beste Grüße,
    Sergej
    AW: Daten aus TXT-Datei auslesen und in Zellen eintragen?
    29.12.2019 17:30:12
    volti
    Hallo Sergej,
    hiermit werden alle Blätter der Datei gleichermaßen gefüllt. Aber war das so gemeint?
    Sub Datenübernehmen()
     Dim sZeile As String, sArr() As String, sZiel As String, oBlatt As Worksheet
     Close #1: Open "S:\Daten\Prj\Service\data.txt" For Input As #1
     While Not EOF(1)
      Line Input #1, sZeile
      sArr = Split(sZeile, ":")
      If UBound(sArr) > 0 Then
        Select Case Trim$(sArr(1))
        Case "[name]": sArr(1) = Environ$("Username")
        Case "[date]": sArr(1) = Format$(Date, "dd.mm.yyyy")
        End Select
        Select Case sArr(0)
        Case "Projektnummer": sZiel = "PNR"
        Case "Projektname":   sZiel = "PName"
        Case "Mitarbeiter":   sZiel = "$B$5"
        Case "Datum":         sZiel = "PDatum"
        '... usw.
        Case Else:            sZiel = ""
        End Select
        On Error Resume Next
        If sZiel <> "" Then
           For Each oBlatt In ThisWorkbook.Worksheets
             If IsEmpty(oBlatt.Range(sZiel)) Then
                oBlatt.Range(sZiel).Value = Trim$(sArr(1))
             End If
           Next oBlatt
        End If
        On Error GoTo 0
      End If
     Wend
     Close #1
    End Sub

    viele Grüße
    Karl-Heinz
    Anzeige
    AW: Daten aus TXT-Datei auslesen und in Zellen eintragen?
    29.12.2019 18:39:45
    Sergej
    Hallo Karl-Heinz,
    vielen herzlichen Dank.
    Ich habe nachhinein gesehen, dass ich auch Excel-Dateien habe, die auch mehreren Arbeitsblättern haben. ;-)
    Beste Grüße,
    Sergej

    Forumthreads zu verwandten Themen

    Daten aus vielen xls-Datein auslesen
    Daniel

    Hallo Profis,
    ich suche einen VBA-Befehl für folgendes:
    Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
    Geht dies?
    Vielen Dank vorab.
    Daniel
    ...
    18.08.2008 15:07:01
    Thread-ID: 1002621
    2 Beiträge
    Letzter Wert einer Spalte (Matrixformel)
    {mskro}

    Hallo Excelaner,
    ich benötige mal wieder eine Hilfestellung.
    Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
    Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
    =INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
    Nur wird...
    28.08.2008 09:59:21
    Thread-ID: 1005303
    9 Beiträge
    Daten sortiert aus anderem Tabellenblatt auslesen
    Robert

    Hallo,
    bräuchte eure Hilfe bitte.
    Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
    Habe da mal eine Beispieldatei zur besseren Veransch...
    28.08.2008 11:32:00
    Thread-ID: 1005356
    3 Beiträge
    Anzeige
    Datensätze aus Blatt auslesen
    bully

    Hallo Leute,
    ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
    Nach etlichen Selbstversuchen gebe ich jetzt auf.
    Gruss...
    02.09.2008 15:55:27
    Thread-ID: 1006842
    6 Beiträge
    Auswertungen aus Matrix - Wie
    trebor-robert

    Hallo,
    wie kann ich aus einer Matrix, die in einer seperaten Arbeitsmappe liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte D untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalten nebeneinander die Bemessungsgrösse 2 (in d...
    05.09.2008 12:03:00
    Thread-ID: 1007638
    4 Beiträge
    Werte aus Matrix auslesen j. mit richtiger Bsp.
    trebor-robert

    Hallo,
    wie kann ich aus einer Matrix, die in einer separaten Arbeitsmappe (im Beispiel der Bereich Arbeitsmappe "B") liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte "C" untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalt...
    05.09.2008 13:33:00
    Thread-ID: 1007667
    5 Beiträge
    von Datum bis Datum suchen und Werte in die Spalte
    Datum

    Hallo liebe Excel-Könner,
    ich habe folgendes Problem und finde keine Lösung.
    Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
    Ich hoffe Ihr könnt mir helfen!
    ...
    07.09.2008 09:31:20
    Thread-ID: 1007931
    8 Beiträge
    Werte aus anderem Blatt für ComboBox auslesen
    mtremer

    Hallo Excel-Freunde,
    ich glaub ich werde verrückt.
    Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
    Private Sub Worksheet_Change...
    17.09.2008 13:17:34
    Thread-ID: 1010349
    11 Beiträge
    Wert innerhalb Array suchen
    David

    Hallo VBAler,
    wenn ich ein Array in der Form
    treffer_n(n)
    habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
    Gruß
    David
    19.09.2008 08:48:14
    Thread-ID: 1010894
    3 Beiträge
    Bestimmten Wert in einer Zelle finden
    Olli

    Hallo,
    ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
    Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
    Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
    19.09.2008 08:54:00
    Thread-ID: 1010897
    5 Beiträge
    Anzeige
    Werte aus matrix entnehmen ?
    AndreasK

    Hallo erstmal,
    ich habe folgendes Problem und stelle mich mal wieder ein bisschen zu doof an, naja ich komm nicht drauf.
    In Blatt1 habe ich mir ein Formular angelegt das allerdings je nach inhalt an einen unterschiedlichen Verteiler per Mail verschickt wird. Die Namen stehen im Bereic...
    29.09.2008 11:53:30
    Thread-ID: 1013061
    3 Beiträge
    Daten aus einer anderen Mappe auslesen
    Uwe

    Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
    Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
    14.10.2008 22:12:36
    Thread-ID: 1016451
    5 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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