+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Pfeile in inteligenter Tabelle (/thread-28754.html)
Pfeile in inteligenter Tabelle - mibri3944 - 08.05.2023
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
RE: Pfeile in inteligenter Tabelle - RPP63 - 08.05.2023
Moin!
Das geht nur mittels VBA.
Code:
Tabelle2.ListObjects(1).DataBodyRange.AutoFilter 3, VisibleDropdown:=False![[Bild: ScrShot1.png]](https://i.ibb.co/hXW7fQH/ScrShot1.png)
Gruß Ralf
RE: Pfeile in inteligenter Tabelle - mibri3944 - 08.05.2023
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?
RE: Pfeile in inteligenter Tabelle - RPP63 - 08.05.2023
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
RE: Pfeile in inteligenter Tabelle - mibri3944 - 08.05.2023
danke,
probiere ich, Bleibt der Pfeil dan verschunden?
RE: Pfeile in inteligenter Tabelle - RPP63 - 08.05.2023
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.
RE: Pfeile in inteligenter Tabelle - mibri3944 - 08.05.2023
https://abload.de/img/2023.05.08_excel026bc6r.png
Ich bekomme diesen Fehler
RE: Pfeile in inteligenter Tabelle - RPP63 - 08.05.2023
Es heißt:
Worksheets("Passwort-Liste")
nicht
Worksheets(Passwort-Liste)
→ Füßchen der Gänse nicht vergessen!
RE: Pfeile in inteligenter Tabelle - mibri3944 - 08.05.2023
nun habe ich diesen Fehler
https://abload.de/img/2023.05.08_excel026bc6r.png
RE: Pfeile in inteligenter Tabelle - RPP63 - 08.05.2023
Da fehlen immer noch die ""!
Ich gebe es auf!