Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

letzte Zeile ermitteln trotz Autofilter | Herbers Excel-Forum


Betrifft: letzte Zeile ermitteln trotz Autofilter von: Reinhard
Geschrieben am: 21.07.2012 17:33:02

Hallo Wissende,

man hat eine Tabelle, sie wurde so gefiltert daß auch die unterste Zeile nicht angezeigt wird.
Dann scheiter der Versuch mit Specialcells(...Lastcell) oder .Cells(rows.count,1).end(xlup).row
die unterste belegte Zeile der ungefilterten Tabelle herauszufinden.

Ich fand dazu im Archiv u.a. dieses:
https://www.herber.de/forum/archiv/1220to1224/t1220675.htm

Wenn es nichts besseres gibt, also kürzer, dann gehe ich diesen Weg.
Vielleicht aber gibt es für mein Problem auch eine andere Lösung.

Es liegt eine Tabelle vor wo manuell horizontale Seitenumbrüche eingebracht wurden.
Mit einer Schleife über HPageBreaks kann ich fast alle ermitteln.
Bis auf den letzten untersten. Wie komme ich ermittlungstechnisch an dessen zeilennummer ran?

Gruß ^ Danke
Reinhard

  

Betrifft: AW: letzte Zeile ermitteln trotz Autofilter von: Luschi
Geschrieben am: 21.07.2012 18:02:56

Hallo Reinhard,

bei mir funktioniert das bei Excel 2004, 2007 und 2010 so:

MsgBox ActiveSheet.Rows(1).SpecialCells(xlCellTypeLastCell).Row - 1

Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: letzte Zeile ermitteln trotz Autofilter von: Reinhard
Geschrieben am: 21.07.2012 18:22:00

Hallo Luschi,

das hilft mir leider nicht weiter, ist ja so wie ich mit meinen bisherigen Versuchen :-(
Hier die Beispielsmappe um die es geht:
https://www.herber.de/bbs/user/81116.xlsm

Die -1 habe ich eh nicht verstanden aber egal.
Jedenfalls kommt da jetzt wenn ich in A nach 3 gefiltert habe vom Code die 14.
Ich brauche aber die 26 in dem Fall.

Gruß
Reinhard


  

Betrifft: AW: letzte Zeile ermitteln trotz Autofilter von: Gerd L
Geschrieben am: 21.07.2012 19:44:10

Hallo Reinhard,

zur nächsten Zeile(nnummer) unter dem Autofilter:

MsgBox ActiveSheet.AutoFilter.Range.Rows.Count + ActiveSheet.AutoFilter.Range.Row

Für die letzte Zeilennummer des Filters müsstest Du 1 abziehen.

Gruß Gerd


  

Betrifft: AW: letzte Zeile ermitteln trotz Autofilter von: Reinhard
Geschrieben am: 24.07.2012 16:21:52

Hallo Gerd,

danke dir, es half mir weiter, ich benutzte Split() für die ActiveSheet.AutoFilter Adresse
und habe so auch die unterste Zeile.

Gruß
Reinhard


Beiträge aus den Excel-Beispielen zum Thema "letzte Zeile ermitteln trotz Autofilter"