Genau...aber bis die 5 Werte in meiner Tabelle stehen vergehen 2 sek^^... Das macht im Prinzip zwar nichts, aber man merkt, damit erst alle 65536 Zeilen durchgezählt werden. Also hab ich das mal so versucht zu optimieren:
Ich zähle in einer anderen Zelle wie Viele Zeilen bereits einen Inhalt haben:
=ZÄHLENWENN(A1:A65536;"<>") 'Das macht eine Excel Funktion
Delphi-Quellcode:
Function letzteZeile() As Long
Dim i As Integer, letzteMin As Long, letzteMax As Long
For i = 1 To 256
letzteMin = Cells(Sheets("Tabelle1").Cells(1, 6) + 1, i).End(xlUp).Row
If letzteMax < letzteMin Then
letzteMax = letzteMin
End If
Next i
letzteZeile = letzteMax
End Function
Dann zähle ich den Wert aus dieser Zelle + 1...
Jetzt funktioniert es wie ich es wollte! Vielen Dank Chemiker
