Folgendes Makro liest den Wert der ersten Zeile einer .txt-Datei ein. Wie müsste es verändert werden, damit es den Wert der letzten Zeile einliest (die Anzahl der Zeilen zwischen erster und letzter verändert sich und ist daher vorab nicht bekannt).
Function LeseZeile1(strPfad As String) As Double
Dim sLine As String
Dim F As Integer
F = FreeFile
Open strPfad For Input As #F
Line Input #F, sLine
Close #F
sLine = Replace(sLine, " ", vbTab)
If InStr(sLine, vbTab) > 0 Then
sLine = Right$(sLine, Len(sLine) - InStr(sLine, vbTab))
End If
If IsNumeric(sLine) Then
LeseZeile1 = CDbl(sLine)
End If
End Function
Mit bestem Dank vorab,
Horst