Listenlänge

Forumthread: Listenlänge
6 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Listenlänge

Listenlänge

23.01.2003 00:29:59

Mario

Hallo,

ich möchte im aktuellen Blatt die Listenlänge ermitteln lassen um sie dann im Makro an verschiedenen Stellen als Variable weiterzuverwenden.
Wie stell ich das an?

Angenommen die Tabelle hat einen "Range" von A1:K184 brauch ich nur den wert 184!

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Listenlänge

23.01.2003 00:39:22

Boris
Re: Listenlänge

23.01.2003 01:04:11

Mario
Re: Listenlänge

23.01.2003 01:30:42

L.Vira
Dann klär mich doch bitte auf!

23.01.2003 12:43:19

Boris
Re: Dann klär mich doch bitte auf!

23.01.2003 16:56:23

L.Vira
Damit klappts .... Danke trotzdem

23.01.2003 19:14:02

Mario

Re: Listenlänge

23.01.2003 00:39:22

Boris

Hi Mario,

Cells.SpecialCells(xlCellTypeLastCell).Row

gibt dir die letzte benutzte Zeile wieder.

Gruß Boris

Re: Listenlänge

23.01.2003 01:04:11

Mario

Hi Boris,

Irgenwie klappt das nicht so.
Ich brauch die Tabellenlänge als Variable (Dim Tabellenlänge As Variable).
Wie bring ich das in Deinem Code unter?

Re: Listenlänge

23.01.2003 01:30:42

L.Vira

feine Sache, erspart viel Arbeit, aber, in UDF nicht zu gebrauchen!
Cells.SpecialCells(xlCellTypeLastCell).Row

Dann klär mich doch bitte auf!

23.01.2003 12:43:19

Boris

Hast du meine Lösung nur zitiert oder sollte das eine abgeänderte Lösung sein - die sich allerdings dann nicht von meiner Antwort unterscheidet...?

Gruß Boris

Re: Dann klär mich doch bitte auf!

23.01.2003 16:56:23

L.Vira

Hi, Boris,
nein ichhab nix geändert, nur zitiert.
Wollte nur mal erwähnen, dass das in UDF nicht funzt,
wie alle anderen SpecialCells übrigens auch.
Gruß L.Vira

Damit klappts .... Danke trotzdem

23.01.2003 19:14:02

Mario

Set Blatt = Sheets("tabelle1")
Blatt.Activate
Dim zelle As String
zelle = "a1"
Do Until Blatt.Range(zelle).Formula = ""
i = i + 1
zelle = "a" & CStr(i)
Loop: Endzeile = i - 1:
Dim sZeile As Variant
sZeile = i - 1

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!