title image


Smiley Re: Textdatei importieren
Hi,



einen recht herzlichen Dank! Ich war schon am Verzweifeln!

Ich habe bloß die Codezeile >>Cells(zeile, 1) = s << auskommentiert, da die Datenübertragung mit der zweiten Zahl begann (erste Spalte beinhaltete den ganzen Zeilenstring):

Ich würde gerne Deine Lösung ins Archiv stellen, weil ich immer wieder von dieser Problematik lese.



Also, nochmals herzlichen Dank.

Johann



Sub TextAuslesen()

Application.ScreenUpdating = False

Worksheets("Import").Activate



Dim lzeile%

Dim Pfad$

Dim zeile, s

Dim i%

Dim varTeile As Variant

Pfad = Application.GetOpenFilename(fileFilter:="Textdateien (*.txt), *.txt")

If Pfad = "Falsch" Then Exit Sub

lzeile = Cells(Rows.Count, 1).End(xlUp).Row

Range("A3:N" & lzeile).ClearContents



Open Pfad For Input As #1

zeile = 3

Do While Not EOF(1)

Line Input #1, s

varTeile = Split(s, ",")

For i = 0 To UBound(varTeile)

Cells(zeile, i + 1).Value = varTeile(i)

Next i

'Cells(zeile, 1) = s

zeile = zeile + 1

Loop

Close #1



End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: