Anzahl Zeilen und Spalten einer Exceltabelle zählen
anzahlzeilen = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
anzahlSpalten = Worksheets(1).Cells(1, Worksheets(1).Columns.Count).End(xlToLeft).Column
'[Worksheets(1)=Worksheets("Tabelle1")= Tabelle in der gezählt werden soll]