Hi,
ich wollte jetzt noch in meinem Makro einen Autofilter einbauen für die Haarfarbe und Augenfarbe. Ich möchte dabei die Haarfarbe blau und rosa rausfiltern und ich möchte die Augenfarbe braun un und grün filter.
Haarfarbe |
Augenfarbe |
Datum |
Nachname |
Vorname |
Ja/Nein |
blau |
grün |
01.02.2018 |
Wöhler |
Vanessa |
Ja |
rot |
blau |
05.07.2018 |
Schulz |
Theo |
Nein |
gelb |
grau |
01.01.2018 |
Schmitz |
Anne |
Nein |
organge |
schwarz |
01.02.2018 |
Wöhler |
Vanessa |
Nein |
blau |
braun |
05.07.2018 |
Schulz |
Theo |
Nein |
rosa |
braun |
01.01.2018 |
Schmitz |
Anne |
Ja |
-> Das heißt Theo, Anne, Vanessa sollen stehen bleiben und die andern sollen rausgefiltert werden.
Ich wollte jetzt mein Makro um das hier erweitern. Ich habe es erstmal nur für haarfarbe gemacht und es funktioniert nicht. Hat jemand eine Idee wie ich das makro erweitern könnte?
Sub autofiltering()
Dim col As String, cfind As Range
col = "Type"
With Worksheets("AF")
With .Range("A1", .Cells(1, .Columns.Count).End(xlToLeft))
Set cfind = .Find(what:=Haarfarbe, LookIn:=xlValues, lookat:=xlWhole)
If Not cfind Is Nothing Then
.AutoFilter Field:=cfind.Column, Criteria1:="blau"
.AutoFilter Field:=cfind.Column, Criteria1:="rosa"
End If
End With
.AutoFilterMode = False
End With
|