Pfeile in inteligenter Tabelle

[RPP63]

Da es sich um ein "Wegwerfmakro" handelt, muss nichts gespeichert werden.
Vorteil ist, dass die Datei eine .xlsx bleiben kann.
Folgender Ablauf:
• öffne mittels Alt+F11 den VBA-Editor
• unten müsste es ein Fenster Direktbereich geben
• falls nicht, öffne es mittels Strg+g
• dort hinein kopierst Du obigen Code und bestätigst ihn mit Enter
• den VBA-Editor kannst Du jetzt wieder schließen

Zur Anpassung solltest Du besser den Namen des Tabellenblatts nehmen:
Worksheets("mein Tabellenblatt").ListObjects(1).DataBodyRange.AutoFilter 3, VisibleDropdown:=False

Gruß Ralf