Feinjustierung Makro mit variablem Datenpfad

Sub Import()
' Import Makro
Tabelle3.Activate
Dim SourcePath As String
Dim FFnr As Integer
Dim TxtZeile As String
Dim AnzZe As Long, AnzSp As Integer, i As Long
SourcePath = "S:\TestImport\99997.csv"
FFnr = FreeFile
Open SourcePath For Input As #FFnr
Do While Not EOF(FFnr)  'Zeilenzahl feststellen
Line Input #FFnr, TxtZeile
AnzZe = AnzZe + 1
Loop
Close #FFnr
FFnr = FreeFile
Open SourcePath For Input As #FFnr
ReDim aZeilen(AnzZe)
Do While Not EOF(FFnr)  'Zeilenzahl feststellen
For i = 1 To AnzZe
Line Input #FFnr, TxtZeile
If i = 1 Then AnzSp = UBound(Split(TxtZeile, ";")) + 1
Range(Cells(i, 1), Cells(i, AnzSp)) = Split(TxtZeile, ";")
Next i
Loop
Close #FFnr
Tabelle1.Activate
End Sub