Sie wollen in #Excel mit #VBA die #letzteZeile oder die #letzteSpalte finden? Da haben Sie viele Möglichkeiten – ich stelle Ihnen heute die vierte vor, es wird jeweils die Zeilennummer bzw. die Spaltennummer (also nicht der Buchstabe) geliefert. mySheet ist eine Objektvariable, die auf das auszuwertende Blatt verweist (z.B. per
Set mySheet = ThisWorkbook.Worksheets("Tabelle1")
oder
Set mySheet = ActiveSheet
schon irgendwo früher im Code. Wir gehen davon aus, dass das passt :-).
LastRowNo = mySheet.ListObjects("Tabelle1").Range.Rows.Count
LastColNo = mySheet.ListObjects("Tabelle1").Range.Columns.Count
Diese Variante funktioniert, wenn Sie mit einer Tabelle arbeiten. Wir ermitteln die Anzahl der Zeilen bzw. Spalten der Tabelle einfach mit der Count-Eigenschaft. Das ist dann auch schon die Nummer der letzten Zeile/Spalte, wenn die Tabelle in Spalte A bzw. Zeile 1 beginnt. Wenn nicht, dann müssen wir noch die Anzahl der vor der Tabelle liegenden Zeilen/Spalten hinzuzählen und 1 abziehen, damit die erste Tabellenzeile nicht doppelt gezählt wird:
LastRowNo = mySheet.ListObjects(„Tabelle1„).Range.Rows.Count + mySheet.ListObjects(„Tabelle1„).Range.Row – 1
LastColNo = mySheet.ListObjects(„Tabelle1„).Range.Columns.Count + mySheet.ListObjects(„Tabelle1„).Range.Column – 1