Prüfen obn es was zu filtern gibt

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

Betrifft: Prüfen obn es was zu filtern gibt
von: Chris
Geschrieben am: 15.09.2015 07:25:47

Hallo Forum,
ich habe per VBA einen Autofilter gesetzt, was auch ganz prima läuft.
Wie kann ich Excel im Vorfeld noch sagen:
Wenn es nix zu filtern gibt, dann Exit


Sub , ansonsten mache das: 

Sub filter()
Set Liste = Sheets("ML").Range("A1:Q2000")
Liste.AutoFilter
Liste.AutoFilter Field:=11, Criteria1:=UserForm1.Label126.Caption
End Sub
schon mal danke.

Bild

Betrifft: AW: Prüfen obn es was zu filtern gibt
von: Gerd L
Geschrieben am: 15.09.2015 08:02:31
Hallo Chris!

MsgBox WorksheetFunction.CountIf(Sheets("ML").Columns(11), UserForm1.Label126.Caption)
Gruß Gerd

Bild

Betrifft: AW: Prüfen obn es was zu filtern gibt
von: Chris
Geschrieben am: 15.09.2015 13:17:20
Hallo Gerd,
danke für deine Antwort. klappt!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Prüfen obn es was zu filtern gibt"