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


[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


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  [Excel] Zellen einer Spalte neben einem mehrspaltigen Bereich ansprechen schauan 0 1.562 12.04.2014, 05:19
Letzter Beitrag: schauan
  [Excel] letzte Zelle in Zeile Hajo_Zi 4 2.157 11.04.2014, 18:41
Letzter Beitrag: nobody
  [Excel] letzte Zelle in Spalte Hajo_Zi 0 1.578 11.04.2014, 17:20
Letzter Beitrag: Hajo_Zi

Gehe zu:


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