Hi, danke für die Antwort, Klappt wunderbar!!
Jetzt hab ich allerdings noch ei Problem mit folgendem Code:
Code:
Private Sub Öffnen_Click()
Dim Koordinaten As String
Dim Dateilänge, x As Integer
Fehler = "dateiöffnen"
On Error GoTo ERrhandler
x = 0
DateiNr = FreeFile
Open dateiname For Input As DateiNr
Dateilänge = LOF(DateiNr)
Do Until Koordinaten = Empty
Input #DateiNr, Koordinaten
Hauptmodul.Text1.Text = Hauptmodul.Text1.Text & Koordinaten & vbCrLf
x = x + 1
Loop
Close DateiNr
Exit Sub
ERrhandler:
Fehlerbehandlung (Fehler)
End Sub
da kommt immer die Fehlermeldung "Einlesen hinter Dateiende". kannst du mir dabei auch vlt. helfen?
Lesezeichen