Datenimport aus .txt-Datei

Sub Text_Import()
Dim spalte As Integer
Dim zeile As Integer
Dim startpos As Integer
'StartVerzeichnis - bitte anpassen
ChDrive "c:\"
ChDir "\Dokumente und Einstellungen\Wolfgang\Desktop"
'Dialogfenster Öffnen
sFile = Application.GetOpenFilename _
("alle Dateien (*.txt), *.txt")
If sFile  False Then
Close
Open sFile For Input As #1
zeile = 3
Do While Not EOF(1)
Line Input #1, strtxt
spalte = 0
If UCase(Left(strtxt, 5)) = UCase("AS_Name") Then
spalte = 1
startpos = 8
End If
If UCase(Left(strtxt, 7)) = UCase("AS_Vorname") Then
spalte = 2
startpos = 10
End If
If UCase(Left(strtxt, 7)) = UCase("HAUS_AS_Straße") Then
spalte = 5
startpos = 10
End If
'schön wäre, hier auch HAUS_AS_Ort und HAUS_AS_Ortsteil in Spalte 6 eingefügt zu  _
bekommen.
If UCase(Left(strtxt, 7)) = UCase("HAUS_AS_PLZ") Then
spalte = 6
startpos = 10
End If
If UCase(Left(strtxt, 7)) = UCase("AS_Liefernr") Then
spalte = 9
startpos = 10
End If
If spalte > 0 Then Cells(zeile, spalte).Value = Mid(strtxt, startpos)
If strtxt = "|" Then zeile = zeile + 1
Loop
Close
End If
End Sub