Thema Datum  Von Nutzer Rating
Antwort
26.10.2015 19:55:48 joerg
*****
NotSolved
Blau opentext
26.10.2015 20:49:32 Gast20055
*****
NotSolved
26.10.2015 21:23:29 joerg
NotSolved
28.10.2015 13:46:35 GastO815
*****
NotSolved
28.10.2015 19:32:50 joerg
*****
NotSolved
31.10.2015 10:21:56 Gast53933
NotSolved
31.10.2015 10:47:09 joerg
NotSolved
02.11.2015 01:52:34 GastO815
NotSolved
02.11.2015 18:45:24 joerg
NotSolved

Ansicht des Beitrags:
Von:
Gast20055
Datum:
26.10.2015 20:49:32
Views:
880
Rating: Antwort:
  Ja
Thema:
opentext

Hallo,

nicht direkt, aber mit etwas VBA kein Problem:

Option Explicit

Public Sub test()
Dim strPath As String
strPath = "C:\je_test\a.txt"
Call Workbooks.OpenText(Filename:=strPath, Semicolon:=True)
Call ActiveWorkbook.ActiveSheet.UsedRange.Copy(Destination:=ThisWorkbook.Worksheets("Rohdaten").Cells(1, 1))
End Sub

Gruß,


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