title image


Smiley Re: Probleme mit import einer Textdatei
Hallo Mischa,

versuchs mal so:





      

Sub csv_text()



     Dim myFile

     Dim wb As Workbook

     Application.ScreenUpdating = False

     

     myFile = Application.GetOpenFilename("Text Files (*.txt), *.txt")

     

     If myFile = False Then Exit Sub

     

     Workbooks.OpenText Filename:=myFile, DataType:=xlDelimited, TextQualifier:=xlTextQualifierSingleQuote, Comma:=True

     Set wb = ActiveWorkbook

     wb.Worksheets(1).Range("A1:H2").Copy _

     Destination:=Workbooks("Werkplanung").Worksheets("Werkplanung").Range("A3")

     wb.Close

     Set wb = Nothing

     Application.ScreenUpdating = True

     

End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0




Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: