Was mach ich hier falsch?
Die letzte Zeile ist 151. Er schreibt alle hinein, bis close 1, dann ist ende. Er soll immer in die letzte Zelle gehen und dann den Befehl ausführen.
Danke
Gruß Michael
Sub TextdateiEnlesen()
Dim zeile As Integer
Dim strInhalt As String
zeile = 1
With Sheets("Tabelle1")
Do Until Cells(zeile, 3) = ""
zeile = zeile + 1
Loop
' Open "c:\Temp\Artikel.txt" For Input As #1
Open "C:\Dokumente und Einstellungen\Michael.S\Desktop\mappe2.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strInhalt
.Cells(zeile, 1).Value = strInhalt
zeile = zeile + 1
strInhalt = ""
Loop
Range("A1").Select
Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Close #1
.Columns("A:A").TextToColumns Destination:=.Range("A" & zeile), DataType:=xlDelimited, _
Semicolon:=True ' Wo ist hier der Fehler?
End With
End Sub