Microsoft Excel

Herbers Excel/VBA-Archiv

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

MsgBox wenn kein Filterergebnis

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

  

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


  

Betrifft: AW: MsgBox wenn kein Filterergebnis von: Peter
Geschrieben am: 03.12.2015 13:50:33

Hallo Ralf

Funktioniert super, vielen Dank!

Gruss,
Peter


 

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