Thema Datum  Von Nutzer Rating
Antwort
01.11.2019 15:48:01 Jonas
Solved
Blau Txt-Datei mit Makro in Excel kopieren
 01.11.2019 19:45:24 xlKing
Solved
03.11.2019 13:38:49 Gast58448
NotSolved
07.11.2019 19:52:20 Jonas
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
01.11.2019 19:45:24		 Views:
500		 Rating:
     
Antwort:
 Nein
Thema:
Txt-Datei mit Makro in Excel kopieren

Hallo Jonas,

z.B. so.

Sub Importieren()

  Datei = Application.GetOpenFilename("Text Files (*.txt), *.txt")
  If Datei = False Then Exit Sub
  
  Set Bereich = Range("C12")
   If Bereich <> "" Then
     Do
       Set Bereich = Bereich.Offset(0, 1)
     Loop Until Bereich = ""
   End If
  
  zeile = Bereich.Row
  spalte = Bereich.Column
  Open Datei For Input As #1
    Do While Not EOF(1)
      Line Input #1, Linetext  ' Zeile in Variable einlesen.
      Cells(zeile, spalte) = Replace(Linetext, Chr(9), " ") 'Tab durch Leerzeichen ersetzen
      zeile = zeile + 1
    Loop
  Close #1

End Sub

Ich kenne den Aufbau deiner Textdatei nicht und weiß auch nicht was du bezwecken willst. Der Code kann also noch für deine Wünsche verändert werden. Führe ihn einfach 4x hintereinander aus.

Gruß Mr. K.

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
01.11.2019 15:48:01 Jonas
Solved
Blau Txt-Datei mit Makro in Excel kopieren
 01.11.2019 19:45:24 xlKing
Solved
03.11.2019 13:38:49 Gast58448
NotSolved
07.11.2019 19:52:20 Jonas
NotSolved