Microsoft Excel

Herbers Excel/VBA-Archiv

Zeilen- und Spaltenanzahl

Betrifft: Zeilen- und Spaltenanzahl
von: Christian
Geschrieben am: 14.04.2003 - 16:18:34

Hi

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.

  

Re: Zeilen- und Spaltenanzahl
von: Nike
Geschrieben am: 14.04.2003 - 16:23:00

Hi,
diese Syntax...

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") = LS & ":Spalten"
Range("B1") = LZ & ":Zeilen"

Bye

Nike

  

Re: Zeilen- und Spaltenanzahl
von: Christian
Geschrieben am: 14.04.2003 - 16:28:08

Funktioniert nicht. Es wird mir immer noch nicht die Anzahl der Zeilen und Spalten eingetragen!!

  

Re: Zeilen- und Spaltenanzahl
von: Nike
Geschrieben am: 14.04.2003 - 16:35:17

Hi,

mal so versuchen:

Sub test()
LS = Worksheets(1).Cells(6, Worksheets(1).Columns.Count).End(xlToLeft).Column
'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") = LS & ":Spalten"
Range("B1") = LZ & ":Zeilen"

End Sub

Bye

Nike

  

Re: Zeilen- und Spaltenanzahl
von: Christian
Geschrieben am: 14.04.2003 - 16:43:00

Hi Nike,

das mit der Spaltenanzahl funktioniert jetze. Nur bei der Zeilenanzahl, da wird mir der Inhalt der letzten Zeile in "B1" reingeschrieben. Vielleicht fällt Dir ja dazu noch was ein.

Danke schonmal

  

Re: Zeilen- und Spaltenanzahl
von: Christian
Geschrieben am: 14.04.2003 - 16:57:06

Damit funktioniert es

LS = Worksheets(1).Cells(6, Worksheets(1).Columns.count).End(xlToLeft).Column
LZ = Worksheets(1).Cells(Rows.count, 6).End(xlUp).Row

es lag am "s" zum Schluß der Row-Zeile

Danke nochmal für die Hilfe Nike.

 

Beiträge aus den Excel-Beispielen zum Thema "Zeilen- und Spaltenanzahl"