VBA Mehrere Tabellen filtern mit einem Klick

[Manlerntnichtaus]

Hast du völlig Recht. Hilft mir nur leider gerade nicht, da ich diese vorgeschobenen Gründe leider nicht ändern kann. Ich kann nur versuchen, trotzdem allen ihre Reports verständlich zu machen.

Also abseits der Grundproblematik von Excel-Scheue, wäre eine hilfreiche Antwort top :)

[schauan]

Hallöchen,

hier mal ein Versuch einer Antwort

Du hast im Code z.B.

ActiveSheet.ListObjects("Tabelle16").Range.AutoFilter Field:=1
ActiveSheet.ListObjects("Tabelle12").Range.AutoFilter Field:=1

Du schreibst aber auch

Klickt er nun auf den Button mit seinem Namen, werden ALLE Tabellen auf den anderen Reitern nach seinem Namen gefiltert.

Wenn nun z.B. der Reiter "AAA" aktiv ist und sich dort keine Tabelle16 befindet, kommt es zu dem Fehler. Du müsstest entweder zuerst das Blatt "AAA" aktivieren und danach filtern oder alternativ statt ActiveSheet dann Worksheet("AAA") nehmen.

[Manlerntnichtaus]

Besten Dank, der kleine Schritt von ActiveSheet zu Worksheet hat das Problem gelöst! Manchmal ist es so einfach... Danke sehr!