MsgBox wenn kein Filterergebnis

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

Betrifft: MsgBox wenn kein Filterergebnis
von: Peter
Geschrieben am: 03.12.2015 12:06:27

Hallo zusammen
Gibt es eine Möglichkeit, eine MsgBox anzeigen zulassen, wenn eine Autofilterabfrage kein Ergebnis anzeigt. Der Autofilter wird mit einer benutzerdefinierten Symbolleiste (vorgegebene Filterkriterien) erstellt und somit sind die Filterkriterien nicht immer in der Liste vorhanden?
Vielleicht irgend was, wenn nach der Autofilterprozedur, alle Zeilen leer sind, dann MsgBox.....
Meine bisheriger Code:

Sub AutofilterProdukt_aPDL1()
        Application.ScreenUpdating = False
        Dim col%
        col = Rows(3).Range("zProdukt").column
        Selection.AutoFilter Field:=col, Criteria1:="*aPDL-1*"
        Call FilterzelleAktiv_Produkt               'blau einfärben der Filterzelle siehe  _
mdl_Zellen_Schrift_Formatierung
        Call LetzteZeile_in_SpalteA
        Range("E2").Select
        Application.ScreenUpdating = True
End Sub
Danke für jede Hilfe.
Viele Grüsse
Peter

Bild

Betrifft: AW: MsgBox wenn kein Filterergebnis
von: RPP63
Geschrieben am: 03.12.2015 12:46:35
Hi!
if cells(rows.Count,1).end(xlup).row = 1 then msgbox "Filter leer!"
Gruß Ralf

Bild

Betrifft: AW: MsgBox wenn kein Filterergebnis
von: Peter
Geschrieben am: 03.12.2015 13:50:33
Hallo Ralf
Funktioniert super, vielen Dank!
Gruss,
Peter

 Bild

Beiträge aus den Excel-Beispielen zum Thema "MsgBox wenn kein Filterergebnis"