Office: Liste mit VBA-Code erweitern/optimieren

Hallo,

ich habe eine Planungsliste, wo mir letztes Jahr in diesem Forum schon sehr geholfen wurde mit der Programmierung von steve1da.

Ich möchte gerne 2 Punkte bei diesem File erweitern:

1. Ich möchte die Liste/das Tabellenblatt mit der VBA-Programmierung auf 2021 und 2022 erweitern.
Ich habe schon versucht, den Code für die Überschneidungsabfrage usw. zu kopieren, leider ohne Erfolg.

2. Ich möchte gerne, dass nach dem speichern der Änderung bzw. beim schließen der Datei alle AutoFilter (falls gewählt) zurückgestellt werden.
Hier habe ich schon diverse Codes aus dem Internet probiert, aber leider ebenfalls ohne Erfolg.

Kann mir hier jemand helfen, damit ich die Datei erweitern bzw. optimieren kann?

Schon vorab vielen, lieben Dank für eure Hilfe.


SG
Florian86

:)

 

Hallol Florian

kann Dir gerne helfen, da ich solche Sachen schon öfters gemacht habe. Doch erst muss feststehen, was genau benötigt wird. Dann kann ich abschätzen, wie hoch der Aufwand ist. Was willst Du erweitern? Welche Autofilter? Wo genau brauchst Du Hilfe? Welches Makro? Welche Tabelle?

LGB

 

zu 1. steve1da ist immer noch aktiv. der kann dir sicher am besten helfen.
wenn du die Tabelle nur erweitern willst, dann brauchst du den code doch nicht irgendwohin kopieren. Die Überschneidungsabfrage geht doch nur zeilenweise nach unten. Soweit ich das verstanden habe.

zu 2. was meinst du mit "diversen Codes"?

der einzige Filter ,der in deinem Beispiel aktiv ist, die der von deiner intelligenten Tabelle. Den bekommst du damit weg. Die Pfeile bleiben.

Code:

 

Hallo,

vielen Dank für euer Feedback.
Ich habe die Abfrage bereits hinbekommen.

Was ich jetzt noch gerne machen würde/benötige, wenn jemand einen Filter setzt (z.B. bei Ansprechpartner), dass dieser Filter automatisch beim beenden der Datei zurück gesetzt wird.

Vielen Dank.

LG

 

Was spricht dagegen den Makrorekorder dafür einzusetzen und diesen Code auszuführen bevor die Arbeitsmappe geschlossen wird?

 

Hallo,

danke für die Antwort.
Ich bin für alle Vorschläge/Lösungen offen.
Kannst du mir hier weiterhelfen?

LG

 

Code:

Wichtig zu wissen:
Der Code funktioniert dann, wenn es
a) ein Arbeitsblatt Namens "Gesamt 2020" und
b) auf diesem Arbeitsblatt eine intelligente Tabelle Namens "Tabelle245" gibt

Bedeutet:
Den Code musste anpassen, wenn du planst, Arbeitsblatt oder Tabelle umzubenennen. Damit Du das schnell finden kannst, stehen die Namen im Code ausgeschrieben.

 

Funktioniert super.

Vielen Dank für die Hilfe.


LG
Florian86

 

Gerne.

 

Ich habe doch noch eine Frage:
Wie kann ich den Code auf mehrere Tabellenblätter anwenden?

 

Codezeile kopieren und zwei Stellen ändern.

1. ALT+F11
   
2. Doppelklick auf 'DieseArbeitsmappe'¹
   
3. Rechts dann die Zeile kopieren und ergänzen (siehe Anhang)
   

¹im Projekt-Explorer; wenn dieser nicht angezeigt wird dann über Ansicht einblenden oder STRG+R