Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen- und Spaltenanzahl

Zeilen- und Spaltenanzahl
14.04.2003 16:18:34
Christian
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.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zeilen- und Spaltenanzahl
14.04.2003 16:23:00
Nike

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
14.04.2003 16:28:08
Christian

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

Re: Zeilen- und Spaltenanzahl
14.04.2003 16:35:17
Nike

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

Anzeige
Re: Zeilen- und Spaltenanzahl
14.04.2003 16:43:00
Christian

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
14.04.2003 16:57:06
Christian

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.

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige