Dynamischer Autofilter
05.12.2018 09:20:02
Sandra.B
ich benötige mal wieder Eure Hilfe zum Thema VBA.
Private Sub Workbook_Open()
Dim Suchbegriff As Range
Set Suchbegriff = Range("B4").Find(What:=Date, LookAt:=xlWhole)
If Suchbegriff Is Nothing = False Then _
Range(Suchbegriff.Address).Activate
End Sub
Mit Hilfe einer Schaltfläche funktioniert folgender Code sehr gut.
Private Sub leereentfernen()
ActiveSheet.ListObjects("Tabelle5").Range.AutoFilter Field:=1, Criteria1:= _
""
End Sub
Vielen Dank an Euch
Sandra