Autofilter wird beim öffnen nicht angezeigt

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Worksheets("Planung").EnableAutoFilter = True
Call Filtersetzen
Call Heute
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Public Sub Filtersetzen()
' Filter Makro
Call Zeilenzaehlen
With Worksheets("Planung").Range("$A$8:$NQ$" & lngZeile)
.AutoFilter
.AutoFilter Field:=2, Criteria1:= _
"=Asklepios", Operator:=xlOr, Criteria2:="=DP_HH_TG"
End With
End Sub

Public Sub Zeilenzaehlen()
lngZeile = 9
Do While Worksheets("Planung").Cells(lngZeile, 1).Value  ""
lngZeile = lngZeile + 2
Loop
lngZeile = lngZeile - 1
End Sub

Public Sub Fahrzeugzuweisung()
Dim lngEinsatz As Long
lngEinsatz = 9
Do While Worksheets("Planung").Cells(lngEinsatz, 1).Value  ""
If Worksheets("Planung").Cells(lngEinsatz, 4).Value  "" Then
Worksheets("Planung").Rows(lngEinsatz).Hidden = False
Worksheets("Planung").Rows(lngEinsatz + 1).Hidden = False
End If
lngEinsatz = lngEinsatz + 2
Loop
End Sub