Pfeile in inteligenter Tabelle

[mibri3944]

Hallo User
https://abload.de/img/2023.05.08_excel01ukflv.png

ich habe eine intelligente Tabelle erstellt. Nun benötige ich in Spalte 1 keinen Filterpfeil
wie kann ich den Pfeil für Spalte 1 entfernen aber die andern brauche ich noch


Gruß und Danke

[RPP63]

Moin!
Das geht nur mittels VBA.

Code:

Tabelle2.ListObjects(1).DataBodyRange.AutoFilter 3, VisibleDropdown:=False

 Entfernt den 3. Filterpfeil im ListObject.



Gruß Ralf

[mibri3944]

Danke für die schnelle Nachricht.
Leider kenne ich mich nicht so gut aus mit VBA
Wenn ich die Tabelle öffne,muss ich dann irgendeine Aktion machen?
Kannst Du mir da helfen?

[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

[mibri3944]

danke,
probiere ich, Bleibt der Pfeil dan verschunden?

[RPP63]

Ja!
(siehe Anhang)
Du machst ihn wieder sichtbar, indem Du in obiger Codezeile False durch True ersetzt.
Oder einfach zweimal im Ribbon Daten auf Filtern klickst.

[mibri3944]

https://abload.de/img/2023.05.08_excel026bc6r.png
Ich bekomme diesen Fehler

[RPP63]

Es heißt:
Worksheets("Passwort-Liste")
nicht
Worksheets(Passwort-Liste)

→ Füßchen der Gänse nicht vergessen!

[mibri3944]

nun habe ich diesen Fehler
https://abload.de/img/2023.05.08_excel026bc6r.png

[RPP63]

Da fehlen immer noch die ""!
Ich gebe es auf!