Hi SJ,
ich hab jetzt ein neues Class Modul eröffnet mit folgendem Code. Leider gibt er mir keine Daten aus. Hab ich da was falsch gemacht? Wenn ich jetzt kein blau oder rosa als Haarfarbe haben möchte, sollen diese nicht ausgegeben werden aber die anderen schon.
Gruß
Option Explicit
Sub autofiltering()
Dim col As String, cfind As Range
With Worksheets("Tabelle1")
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
End Sub
|