Thema Datum  Von Nutzer Rating
Antwort
29.09.2019 20:34:37 Andreas Kra
NotSolved
29.09.2019 20:35:35 Andreas Kra
NotSolved
29.09.2019 20:36:04 Gast49655
NotSolved
29.09.2019 21:01:25 Mase
NotSolved
29.09.2019 21:02:18 Mase
NotSolved
29.09.2019 21:21:51 Andreas K
NotSolved
29.09.2019 21:27:25 Mase
NotSolved
29.09.2019 21:39:38 Gast33840
NotSolved
29.09.2019 21:51:26 Mase
NotSolved
29.09.2019 22:07:29 Andreas K
NotSolved
Rot Split-Befehl beim Einlesen TXT-Datei nicht möglich?
 29.09.2019 22:53:29 Mase
NotSolved
30.09.2019 07:20:24 Gast55747
Solved

Ansicht des Beitrags:
Von:
Mase		 Datum:
29.09.2019 22:53:29		 Views:
492		 Rating:
     
Antwort:
  Ja
Thema:
Split-Befehl beim Einlesen TXT-Datei nicht möglich?

Macht doch nix :)

Waren alle mal. Versuch das hier:

Option Explicit
 
Sub einlesen()
    Dim Quelldatei As String
    Dim Zeile As Long
    Dim Inhalt As String
    Dim Informationen() As String
    Dim i As Long, y As Long
    Dim wks As Worksheet
    '
    Set wks = ThisWorkbook.Worksheets(1)
    Zeile = 1
    '
    Quelldatei = ThisWorkbook.Path & "\1.txt"
    Open Quelldatei For Input As #1
        Do While Not EOF(1)
            Line Input #1, Inhalt
            Informationen = Split(Inhalt, Chr(9))
            For i = 0 To UBound(Informationen)
                ActiveSheet.Cells(Zeile, i + 1) = Informationen(i)
            Next
            Zeile = Zeile + 1
        Loop
    Close #1
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.09.2019 20:34:37 Andreas Kra
NotSolved
29.09.2019 20:35:35 Andreas Kra
NotSolved
29.09.2019 20:36:04 Gast49655
NotSolved
29.09.2019 21:01:25 Mase
NotSolved
29.09.2019 21:02:18 Mase
NotSolved
29.09.2019 21:21:51 Andreas K
NotSolved
29.09.2019 21:27:25 Mase
NotSolved
29.09.2019 21:39:38 Gast33840
NotSolved
29.09.2019 21:51:26 Mase
NotSolved
29.09.2019 22:07:29 Andreas K
NotSolved
Rot Split-Befehl beim Einlesen TXT-Datei nicht möglich?
 29.09.2019 22:53:29 Mase
NotSolved
30.09.2019 07:20:24 Gast55747
Solved