im folgenden Code wird ein Autofilter gesetzt.
Das Ergebnis wird aber nicht angezeigt, lediglich der Filterkopf.
Wenn ich nun manuell in den Autofilter gehe und die vorhandenen Filterkriterien mit OK Button bestätige, werden mir die Ergebnisse angezeigt.
Application.ScreenUpdating = True hilft auch nicht.
Könnt ihr mir helfen ?
Sub Filter()
On Error Resume Next
Application.Calculate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With Range("$A2:$L50000")
.AutoFilter
.AutoFilter Field:=6, Criteria1:="0,75"
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationManual
End Sub
Gruß
Hermann