@atgis:
Wenn ich das alles richtig verstanden habe, möchtest du sicherstellen, daß neue Eingaben immer in die Zeile gestellt werden, die unter der bisher letzten Zeile der Tabelle liegt.
Ich benutze für solche Zwecke folgende 3 Lösungen um die bisher letzte Zeile einer Tabelle zu bestimmen
Delphi-Quellcode:
Function LastRow1() As Long
LastRow1 = ActiveSheet.Cells(1, 1).End(xlDown).Row
End Function
Delphi-Quellcode:
Function LastRow2() As Long
LastRow2 = ActiveSheet.Cells(65536, 1).End(xlUp).Row
End Function
Delphi-Quellcode:
Function LastRow3() As Long
With ActiveSheet.UsedRange
LastRow3 = .Row + .Rows.Count - 1
End With
End Function
Version 1 und 2 sind dann problematisch wenn die Tabelle nicht vollständig gefüllt ist.
Version 3 dürfte die zuverlässigste sein, weil hier gleichgültig ist, wo auf dem Sheet sich die Tabelle befindet und ob alle Zeilen der Tabelle vollständig gefüllt sind. Diese Version gibt immer die unterste nichtleere Zeile des WorkSheets zurück.