EXCEL VBA: Ermitlung letzte Zeile/Spalte im Worksheet

Problem:
Weil ich es mir nicht merken kann...hier die Ermittlung der letzten Zeile/Spalte unter VBA in Excel

Lösung:

VBA
'letzte Zeile in "A" suchen
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

'letzte Spalte in Zeile 1 suchen
Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column


Quelle: schmittis-page.de: Letzte Zeile/Spalte eines Datenbereiches finden
“Das einzig sichere System müsste ausgeschaltet, in einem versiegelten und von Stahlbeton ummantelten Raum und von bewaffneten Schutztruppen umstellt sein.”
Gene Spafford (Sicherheitsexperte)