Autofilter mit Leeren

[Seeqi]

Moin zusammen,

ich kriege es nicht hin als Criteria3 die Leeren Zellen anzufügen...

Code:

Sub DruckeSonntagFrüh2()

Range("AQ2").Value = "_Frühschicht"
Call Sonntag
ActiveSheet.Range("$A$28:$CBT$28").AutoFilter Field:=71, Criteria1:=">=06:01", _
        Operator:=xlAnd, Criteria2:="<=14:30"
ActiveWorkbook.Worksheets("Plan Woche").AutoFilter.Sort.SortFields.Add2 Key:= _
        Range("BS28:BS14700"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
Call Druckealle
End Sub

, Criteria2:="" und  , Criteria2:="""" funktioniert nicht...und mehr habe ich im Netz nicht gefunden :D 

Hoffe hier kann jemand helfen :)

Vielen Dank schonmal.

[derHoepp]

Moin,

ein Blick in die Onlinehilfe ist nicht verboten. Dort hättest du herausfinden können, dass die Range.AutoFilter()-Methode keinen Criteria3-Parameter kennt. 

Ansonsten lässt sich schlecht erraten, was du konkret erreichen willst.

Viele Grüße 
derHöpp