MsgBox wenn kein Filterergebnis
03.12.2015 12:06:27
Peter
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
Viele Grüsse
Peter