letzte zeile ermitteln, ausgeblendete mit einbeziehen!

09/10/2008 - 11:16 von Reiner | Report spam
Hallo zusammen,
ich suche per VBA eine Möglichkeit die letzte nichtleere Zeile zu
ermitteln.
Es sollen die augeblendeten Zeilen mit einbezogen werden!

Kann mir einer helfen?
Danke im voraus

Gruß
Reiner
Excel 2007
 

Lesen sie die antworten

#1 Claus Busch
09/10/2008 - 11:35 | Warnen spam
Hallo Reiner,

Am Thu, 9 Oct 2008 02:16:03 -0700 (PDT) schrieb Reiner:

ich suche per VBA eine Möglichkeit die letzte nichtleere Zeile zu
ermitteln.
Es sollen die augeblendeten Zeilen mit einbezogen werden!



wenn du nicht gerade die letzte belegte Zeile ausgeblendet hast,
funktioniert
LRow = Range("A" & Rows.Count).End(xlUp).Row
oder
LRow = Range("A:A").SpecialCells(xlCellTypeLastCell).Row
Hast du aber die letzte belegte Zeile ausgeblendet, probiere es mal so
LRow = WorksheetFunction.Subtotal(3, Range("A:A"))
Damit bekommst du ein falsches Ergebnis, wenn du Leerzeilen in der
Tabelle hast.


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP3 / Vista Ultimate
Office 2003 SP3 / 2007 Ultimate SP1

Ähnliche fragen