Marko spalten ausblenden mit Filterung

Sub Filtern_Spalten_Ausblenden()
Dim loLetzteS As Long, i As Long, raAusblenden As Range
With Worksheets("Sammeländerung 2")
If .Range("L16") = "" Then
If .Range("D21").AutoFilter Then .AutoFilterMode = False
.Columns.Hidden = False
Exit Sub
End If
Application.ScreenUpdating = False
If IsNumeric(.Range("L16")) Then
If WorksheetFunction.CountIf(.Columns("D"), .Range("L16")) > 0 Then
.Columns.Hidden = False
.Range("D21").Select
.ListObjects("Tabelle10").Range.AutoFilter Field:=1, Criteria1:=.Range("L16")
loLetzteS = .Cells(21, .Columns.Count).End(xlToLeft).Column
For i = 23 To loLetzteS
If WorksheetFunction.Aggregate(9, 7, .Columns(i)) = 0 Then
If raAusblenden Is Nothing Then
Set raAusblenden = .Cells(1, i)
Else
Set raAusblenden = Union(raAusblenden, .Cells(1, i))
End If
End If
Next i
If Not raAusblenden Is Nothing Then
raAusblenden.EntireColumn.Hidden = True
End If
Else
MsgBox "Fehler: Den Filterbegriff " & .Range("L16") & " gibt es in Spalte C nicht."
End If
Else
MsgBox "Fehler: Der Filterbegriff ist nicht numerisch."
End If
End With
Set raAusblenden = Nothing
End Sub