Letzte Zeile trotz Autofilter finden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Letzte Zeile trotz Autofilter finden von: Oliver
Geschrieben am: 30.03.2005 11:13:25

Hallo,

wer kann mir sagen, wie ich die letzte Zeile eines Sheets finde, obwohl ein Autofilter aktiv ist?

Bsp.: Die letzte genutzte (also wirklich mit Inhalt gefüllte und nicht irgendwie mal formatierte) Zeile ohne Autofilter ist 70, mit Autofilter 43. Ich möchte trotz aktivem Autofilter die 70 finden.

Vielen Dank
Oliver

Bild


Betrifft: AW: Letzte Zeile trotz Autofilter finden von: Boris
Geschrieben am: 30.03.2005 11:18:57

Hi Oliver,


Sub letzte()
MsgBox [lookup(2,1/(a1:a10000<>""),row(1:10000))]
End Sub



Sub oder_so()
MsgBox [a:a].Find("*", searchdirection:=xlPrevious).Row
End Sub


Grüße Boris


Bild


Betrifft: AW: Letzte Zeile trotz Autofilter finden von: Oliver
Geschrieben am: 30.03.2005 11:40:58

Hallo Boris,

erstmal vielen Dank.

Variante 1 funktioniert - wenngleich ich nicht weiß, weshalb. Ich verstehe die Syntax nicht. Über etwas Hilfestellung zu dieser Formel wäre ich sehr dankbar.

Variante 2 funktioniert nicht, da sie nur die vom Autofilter durchgelassenen Zellen berücksichtigt.

Gruß
Oliver


Bild


Betrifft: Jau - Variante 2 war ein Satz mit x... von: Boris
Geschrieben am: 30.03.2005 11:56:51

Hi Oliver,

...sorry - wird nicht wieder vorkommen ;-)

Variante 1 ist in der Tat sehr tricky (siehe auch: Frank-Kabel-Lösung auf unserer HP excelformeln.de). Ich hab letztens noch eine längere Abhandlung dazu hier im Forum gepostet - find sie aber nicht mehr und bin jetzt ehrlich gesagt zu faul, das nochmal alles zu schreiben.

Grüße Boris


Bild


Betrifft: AW: Letzte Zeile trotz Autofilter finden von: ANdreas
Geschrieben am: 30.03.2005 11:26:08

Hallo Oliver,

trage diese Formel als Array-Formel ein (mit STRG+SHIFT+ENTER abschließen bei der Eingabe)

Den durchsuchten Bereich natürlich vorher auf deine Tabelle anpassen:

=MAX(WENN(A1:E10000="";0;ZEILE(A1:E10000)))

Die Formel darf natürlich nicht in dem Bereich selbst stehen - sonst Zirkelbezug.

Gruß
Andreas


Bild


Betrifft: AW: Letzte Zeile trotz Autofilter finden von: Oliver
Geschrieben am: 30.03.2005 11:52:48

Hallo Andreas,

vielen Dank.

Ich suchte zwar eine VBA-Lösung, bin aber umso erstaunter, wie einfach dies auch innerhalb der Zellen funktioniert...

Gruß
Oliver


Bild


Betrifft: AW: Letzte Zeile trotz Autofilter finden von: ANdreas
Geschrieben am: 30.03.2005 12:45:38

Hallo Oliver,

das ist doch das geringste Problem ;-)


Sub VbaUmsetzung()
MsgBox [MAX(IF(A1:E10000="",0,ROW(A1:E10000)))]
End Sub


Gruß
Andreas


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Letzte Zeile trotz Autofilter finden"