Destination:=.Range("A" & zeile)

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