Autofilter
30.12.2020 12:44:41
Peter
Ich möchte in meiner Tabelle einen Autofilter setzen.
Mein Code:
Sub xxx()
With AKB
.Range(.Cells(8, 1), .Cells(LastRow(AKB), LastCol(AKB))).AutoFilter
End With
End Sub
Da passiert aber gar nix, wenn ich den Code laufen lasse.
Ich habe den Range im Direktbereich getestet, der Bereich, der gefiltert werden soll, scheint zu stimmen:
?akb.Range(akb.Cells(8, 1), akb.Cells(LastRow(AKB), LastCol(AKB))).Address
$A$8:$L$132
Wenn ich das Filtersetzen mit dem Macrorecorder festhalte, wird Folgendes aufgezeichnet:
Sub Makro1()
'' Makro1 Makro
Application.Goto Reference:="R8C1:R132C12"
Selection.AutoFilter
End Sub
Gruss, Peter