Thema Datum  Von Nutzer Rating
Antwort
Rot Import einer .txt Datei mit Trennzeichen Tab
15.06.2021 14:30:14 Basti
NotSolved
15.06.2021 14:56:04 Gast16801
NotSolved
15.06.2021 15:12:36 Basti
NotSolved
15.06.2021 16:40:43 Ulrich
*****
NotSolved
16.06.2021 11:25:33 Basti
NotSolved
17.06.2021 15:22:17 Ulrich
*****
NotSolved
18.06.2021 10:52:52 Basti
NotSolved
20.06.2021 12:31:06 Ulrich
NotSolved
19.06.2021 21:12:18 Gast69704
NotSolved
18.06.2021 19:58:32 Zwenn
NotSolved
18.06.2021 20:31:42 Zwenn
NotSolved
20.06.2021 19:55:16 Ulrich
NotSolved
20.06.2021 20:27:26 Ulrich
NotSolved
20.06.2021 20:27:28 Ulrich
NotSolved
21.06.2021 08:28:20 Basti
NotSolved
21.06.2021 14:44:33 Gast36288
NotSolved

Ansicht des Beitrags:
Von:
Basti
Datum:
15.06.2021 14:30:14
Views:
146
Rating: Antwort:
  Ja
Thema:
Import einer .txt Datei mit Trennzeichen Tab

Hi an alle,

ich habe ein kleines Problem. Beim Import einer txt Datei haben sich die Vorgaben geändert. Vorher wurde alles durch ";" getrennt und jetzt ist es Tabstop getrennt.

Ich bekomme meinen Code einfach nicht dahingehend modifiziert.

Hat jemand einer Idee?

Sub Import()
   Dim SourcePath As String
   Dim FFnr As Integer
   Dim TxtZeile As String
   Dim AnzZe As Long, AnzSp As Integer, i As Long
   Dim sName As String
   
   sName = "Speicherort" & Format(Date, "ddmmyyyy") & ".txt"
   SourcePath = sName
   FFnr = FreeFile
   Open SourcePath For Input As #FFnr
   Do While Not EOF(FFnr)  'Zeilenzahl feststellen
      Line Input #FFnr, TxtZeile
      AnzZe = AnzZe + 1
   Loop
   Close #FFnr
   FFnr = FreeFile
   Open SourcePath For Input As #FFnr
   ReDim aZeilen(AnzZe)
   Do While Not EOF(FFnr)  'Zeilenzahl feststellen
      For i = 1 To AnzZe
         Line Input #FFnr, TxtZeile
         If i = 1 Then AnzSp = UBound(Split(TxtZeile, ";")) + 1
         Range(Cells(i, 1), Cells(i, AnzSp)) = Split(TxtZeile, ";")
      Next i
   Loop
   Close #FFnr
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
Rot Import einer .txt Datei mit Trennzeichen Tab
15.06.2021 14:30:14 Basti
NotSolved
15.06.2021 14:56:04 Gast16801
NotSolved
15.06.2021 15:12:36 Basti
NotSolved
15.06.2021 16:40:43 Ulrich
*****
NotSolved
16.06.2021 11:25:33 Basti
NotSolved
17.06.2021 15:22:17 Ulrich
*****
NotSolved
18.06.2021 10:52:52 Basti
NotSolved
20.06.2021 12:31:06 Ulrich
NotSolved
19.06.2021 21:12:18 Gast69704
NotSolved
18.06.2021 19:58:32 Zwenn
NotSolved
18.06.2021 20:31:42 Zwenn
NotSolved
20.06.2021 19:55:16 Ulrich
NotSolved
20.06.2021 20:27:26 Ulrich
NotSolved
20.06.2021 20:27:28 Ulrich
NotSolved
21.06.2021 08:28:20 Basti
NotSolved
21.06.2021 14:44:33 Gast36288
NotSolved