Makro Programmierung Excel - VB

[Amateurprofi]

@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.