|
Hi Zusammen,
ich würd gerne mein Makro weitererweitern um einen autofilter. Derzeitig gebe ich die Spalten und Zeilen von Tabelle 1 in Tabelle 2 die für mich relevant sind.
Jetzt möchte ich den autofilter anwenden (in Tabelle 2) und habe hierfür ein Sub Class angelegt.
Ich möchte die Spalte "Haarfarbe" filtern. Hierbei sollen die Werte "Blau" nicht angezeigt werden.
Hat jemand eine Idee?
Gruß
Option Explicit
Sub autofiltering()
Dim col As String, cfind As Range
col = "Type"
With Worksheets("Ergebnis")
With .Range("A1", .Cells(1, .Columns.Count).End(xlToLeft))
Set cfind = .Rows(1).Find(what:=Haarfarbe, LookIn:=xlValues, lookat:=xlWhole)
If Not cfind Is Nothing Then
.AutoFilter Field:=cfind.Column, Criteria1:="blau"
End If
End With
.AutoFilterMode = False '<-- show all rows back and remove autofilter buttons
End With
End Sub
|