Makro mit Autofilter
17.06.2014 15:45:12
Nicolai Nübel
Hallo zusammen,
würde für folgendes Makro gerne auch die Zeilen sehen,
welche "leer" sind.
Bisher wird mir hier nur das heutige Datum angezeigt.
Sub Heute()
ActiveSheet.Unprotect
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Dim Startdatum
Dim Enddatum
Startdatum = CDbl(Date) - 1
Enddatum = CDbl(Date) + 1
ActiveSheet.Range("$A$4:$Q$1000").AutoFilter Field:=3, Criteria1:=">" & Startdatum & "", _
Operator:=xlAnd _
, Criteria2:="<" & Enddatum & ""
ActiveSheet.Unprotect
End Sub