ich möchte beim Aufbau mehrerer Tabellen auch die Möglichkeit für einen Autofilter aktivieren:
With Workbooks(ThisWorkbook.Name).Worksheets(FFiles)
.Cells.Columns.AutoFit
.Range(Cells(1, 1), Cells(FLine, 4)).AutoFilter
End With
Das mit dem "AutoFit" funktionert, das mit dem Autofilter jedoch nicht; dort bekommt ich den Fehler 1004. An dem "." vor dem Range liegt es nicht; ich habe schon beide Versionen versucht.
Keine Probleme habe ich, wenn ich zuerst die Tabelle selektiere und dann den Autofilter aktiviere:
Sheets(FFiles).Select
Range(Cells(1, 1), Cells(FLine, 4)).AutoFilter
Im Forum habe ich zwar ein Beispiel gefunden, doch dort wird ein bestehender Filter angewendet.
Ist mein Problem ohne "select" lösbar?
Gruß W H21