AutoFilter
28.11.2016 09:03:23
snewi133
Mit meinem Code klappt das ausblenden wohl schon aber das setzen in der richtigen Zeile nicht! Vielleicht könnt ihr mir helfen!
Public Sub AutoFilter()
Dim Column As Integer
For Column = 2 To 9
Cells(2, Column).AutoFilter Field:=Column, Criteria1:="=""""", _
Operator:=xlOr, Criteria2:="""""", VisibleDropDown:=False
Next
End Sub