Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listenlänge

Forumthread: Listenlänge

Listenlänge
22.01.2003 23: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!

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Listenlänge
22.01.2003 23:39:22
Boris
Hi Mario,

Cells.SpecialCells(xlCellTypeLastCell).Row

gibt dir die letzte benutzte Zeile wieder.

Gruß Boris

Re: Listenlänge
23.01.2003 00: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 00:30:42
L.Vira
feine Sache, erspart viel Arbeit, aber, in UDF nicht zu gebrauchen!
Cells.SpecialCells(xlCellTypeLastCell).Row


Anzeige
Dann klär mich doch bitte auf!
23.01.2003 11: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 15: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
Anzeige
Damit klappts .... Danke trotzdem
23.01.2003 18: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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige