Anwendungs- oder Objektdefinierter Fehle

Sub Importieren()
'Variablen definieren
Dim QuellDatei As Variant        'Speicherort der TextDatei
Dim Inhalt As String            'Inhalt der TextDatei
Dim Informationen() As String   'Array mit Inhalt der Textdatei
Dim i As Integer                'Laufvariablen 2
Z = Sheets(1).UsedRange.Rows.Count
'Tabellenblatt aktivieren
ThisWorkbook.Worksheets("Tabelle1").Activate
'QuellDatei ansprechen
QuellDatei = Application.GetOpenFilename()
If QuellDatei = False Then
MsgBox "Der Benutzer hat abgebrochen.", vbInformation
Exit Sub
Else
MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & varDatei
End If
'QuellDatei öffnen
Open QuellDatei For Input As #1
'Information in das Tabellenblatt eintragen
Do While Not EOF(1)     'Schleife bis DatenEnde
'Inhalt der Quelldatei zeilenweise einlesen
Line Input #1, Inhalt
'Splittet den Inhalt mit tab
'Informationen = Split(Inhalt, vbTab)
Sheets(1).Cells(Z, 1) = Replace(Inhalt, vbTab, ";")
Sheets(1).Cells(Z, 1) = Replace(Inhalt, ":", ";")
Z = Z + 1
Loop
Close #1
For j = 0 To Z 'UBound(Informationen) 'Ubound erkkent die obergrenze ders arrays
--FEHLER-->           Text = Split(Sheets(1).Cells(j, 1), ";")
For i = 0 To UBound(Text)
Cells(j, i + 1) = Text(i)
Next
Next
End Sub