Clever-Excel-Forum

Normale Version: [Excel] Letzte belegte Zelle Zeile/Spalte
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
@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