title image


Smiley AdvancedFilter: mit mehreren Kriterien
Hallo,



ich möchte mehrere Suchkriterien anwenden und weis nicht wie?



Suchkriterie:

A1:D1 sind Spaltenüberschrift

A2:D2 ist das eine Kriterium

A3:D3 ist das nächste Kriterium

A4:D4 ist das nächste Kriterium



In manchen Zellen (Zeile 1 bis 4) sind keine Kriterien definiert.



erko



Sub TabelleFiltern()

Dim aktuell, aw, db, Sk, Zb

Set aktuell = ActiveCell

Set aw = ActiveWorkbook

Set db = aw.Names("Datenbank").RefersToRange 'A1:D4

Set Sk = aw.Names("Suchkriterien").RefersToRange 'A1:D4

Set Zb = aw.Names("Zielbereich").RefersToRange 'A1:A4



db.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sk, _

CopyToRange:=Zb, Unique:=False



aktuell.Select

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: