Ermittlung der Anzahl von horizontal gefüllten Spalten

Florian Schilling

unread,

Jan 14, 1998, 3:00:00 AM1/14/98

to

Hallo liebe Excel-Newsgroups-Leser,

ich möchte, möglichst in einer VBA-Zeile, die Anzahl von horizontal
gefüllten Spalten ermitteln. Horizontal kann ich Sie mit folgendem
VBA-Statement herausfinden:

AnzZeilen = Cells(Cells.Rows.Count, 1).End(xlUp).Row

Leider sind meine Versuche die besetzen horizontalen Spalten zu ermitteln
bisher gescheitert.

Für einen Tip wäre ich sehr dankbar.

Mit vielen Grüßen,

Florian Schilling

Hans W. Herber

unread,

Jan 15, 1998, 3:00:00 AM1/15/98

to

Hallo Florian,

für den Fall, daß Du die jeweils letzte Zelle in der Spalte/Zeile
ermitteln möchtest, ohne die UsedRange-Methode einzusetzen:

Letzte Zelle mit Inhalt bei den Spalten:
LZ = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column

Letzte Zelle mit Inhalt bei den Zeilen:
LZ = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row

Untere rechte Ecke des Bereiches, der die beiden vorher bestimmten Zellen
beinhaltet:
Adr = Cells(Cells.Find("*", Range("A1"), _
xlFormulas, , xlByRows, xlPrevious).Row, _
Cells.Find("*", Range("A1"), xlFormulas, , _
xlByColumns, xlPrevious).Column).Address

Gruss Hans

--
****************************************************
* Herber's Excel-Server - letztes Update: 14.01.98 *
* http://www.herber.de - Mail: her...@herber.de *
* Microsoft MVP - Excel *
* Alle Demos jetzt im XLS- und ZIP-Format *
****************************************************

Florian Schilling

unread,

Jan 15, 1998, 3:00:00 AM1/15/98

to

Hi Hans,

zuerst möchte ich mich für Deine so schnelle und kompetente Antwort
bedanken. Vielen Dank ! Dein Lösungsvorschlag ist schon in mein Makro
eingbaut und funktioniert.
Wo siehst Du eigentlich den Unterschied (Stabilität + Schnelligkeit)
zwischen dem 1. Vorschlang und dem 2.

AnzZeilen = Cells(Cells.Rows.Count, 1).End(xlUp).Row

bzw.

LZ = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column

Viele Grüße aus Nürnberg,

Florian Schilling

Hans W. Herber

unread,

Jan 15, 1998, 3:00:00 AM1/15/98

to

Hallo Florian,

an Stabilität und Schnelligkeit tun sich die beiden Methoden nichts. Der
Unterschied liegt hier:

Die Methode:
LZ = Cells(Rows.Count, 1).End(xlUp).Row
liefert die letzte Zeile mit Inhalt in Spalte 1 und eignet sich für die
Gelegenheiten, in denen man die letzte Zeile mit Inhalt aus einer
bestimmten Spalte wissen möchte.

Die Methode:
LZ = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
liefert die letzte Zeile mit Inhalt im Arbeitsblatt.

Gruss Hans

--
****************************************************
* Herber's Excel-Server - letztes Update: 14.01.98 *
* http://www.herber.de - Mail: her...@herber.de *
* Microsoft MVP - Excel *
* Alle Demos jetzt im XLS- und ZIP-Format *
****************************************************

> Wo siehst Du eigentlich den Unterschied (Stabilität + Schnelligkeit)