Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.

Bei Problemen mit der Erreichbarkeit der Foren bitte den Link / Favoriten prüfen und ersetzen. Dazu über die Startseite ins gewünschte Forum wechseln und zu den Favoriten hinzufügen. Excel ist derzeit z.B. unter http://www.clever-excel-forum.de/forum-2.html zu erreichen.


[Excel] Letzte belegte Zelle Zeile/Spalte
#1
@All,

bei ausgeblendeten Zeilen bzw. Spalten liefern die beiden Codes

Code:
' Zeile
IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
' Spalte
IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1, Columns.Count).End(xlToLeft).Column, Columns.Count)

die letzte sichtbare nichtleere Zeile/Spalte, nicht jedoch die letzte belegte Zeile/Spalte, wie oft fälschlich vorausgesetzt wird.

Will man dagegen die tatsächlich letzte belegte Zeile/Spalte, einschließlich eventuell ausgeblendeter Zellen ermitteln, empfiehlt sich dieser Code:

Code:
' Zeile
Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
' Spalte
Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

Selbstverständlich kann dies auch ein eine bestimmte Spalte / Zeile beziehen:

Code:
' Zeile
Columns("A").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
' Spalte
Rows(3).Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

Zu beachten ist dabei, dass der Code für die letzte belegte Zeile nicht bei durch Autofilter ausgeblendeten Zeilen anwendbar ist - hier wird nur die letzte sichtbare belegte Zeile ausgegeben.

Bis später,
Karin
to top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste