|
Frei raus:
Streng genommen, müsstest Du zuvor prüfen, ob Cells(Rows.Count, 1).Value einen Wert besitzt.
Falls ja, könnte es ja bedeuten, dass die Tabelle bereits "voll" ist. (Zugegeben: Höchst unwahrscheinlich)
Ne andere Sache ist folgende:
Du arbeitest mit einer intelligenten Tabelle.
ActiveSheet.ListObjects(1).DataBodyRange.Rows.Count liefert Dir die Anzahl Zeilen des Datenbereichs.
ActiveSheet.ListObjects(1).Range.Rows.Count liefert Dir die Anzahl aller Zeilen Deiner Tabelle.
ActiveSheet.ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeLastCell).Address die rechte untere Ecke
usw usf. Check this out
Einfach eine Zeile zur intelligenten Tabelle hinzufügen:
Da bräuchte es den ganzen Schmarn gar nicht. Geht einfacher wie folgt:
ListRows.Add-Methode (Excel) | Microsoft Docs
|