Zeilen- und Spaltenanzahl
14.04.2003 16:18:34
Christian
ich möchte die Zeilen- und Spaltenanzahl eines Tabellenblattes feststellen. Dabei habe ich folgenden Code verwendet:
Dim LZ, LS
LS = Cells(6, Columns.count).End(xlUp).Columns 'liefert die letzte belegte Spalte der Tabelle (bezogen auf Zeile 6)
LZ = Cells(Rows.count, 6).End(xlUp).Rows 'liefert die letzte belegte Zeile der Tabelle (Bezogen auf Spalte 6)
Range("A1:A1") = LS & ":Spalten"
Range("B1:B1") = LZ & ":Zeilen"
Leider liefert mir die Spaltenzählfunktion garkein Ergebniss und bei der Zeilenzählfunktion wird mir der Zelleninhalt der Letzten Zeile in der entsprechenden Spalte angezeigt. Ich möchte aber die Anzahl der entsprechenden Zeilen und Spalten haben.
Danke für Eure Hilfe.
Anzeige