Office: Autofilter bei File-Öffnen aktualisieren

Hallo!

Hätte eine kurze Frage!
Eine Excel-Tabelle entnimmt Werte aus einer anderen (anderes File). Beim Öffnen wird die Verknüpfung immer aktualisiert.

Außerdem habe ich einen simplen Autofilter auf diese Werte.
Dieser sollte nun auch immer beim Öffnen aktualisiert werden.

Wie funktioniert das am besten??

Danke,
Andreas

:)

 

Moin, Andreas,

den Wert des Autofilters im Workbook_Open-Ereignis aus der Zelle / Verbindung holen und setzen lassen...

 

Hallo!
Danke!

Workbook-open Ereignis? -> wie genau - kenn mich da leider nicht so gut aus?
Außerdem muss das Aktualisieren des Filters nach dem Aktualisieren der Verknüpfung zur anderen Tabelle stattfinden.

Danke,
Andreas

 

Moin, Andreas,

das Workbook_Open-Ereignis ist ein Klassenereignis, welches sich in dem Programmteil DieseArbeitsmappe der betreffenden Mappe befinden soll und welches dann bei jedem Start mit aktivierten Makros und der "richtigen" Sicherheitsstufe (hoch nur bei signierten Makros, mittel ist die Empfehlung, so dass bei jedem Start ein Hinweis auf vorhandene Makros erfolgt) abgearbeitet wird. Da Du weder offenlegst, in welchem Bereich bzw. auf welchem Blatt der Filter gesetzt werden soll noch aus welcher Mappe und wie sich das Kriterium zusammensetzt, hier ein relativ simpel gestricktes Beispiel:

Code:

 

Hallo!

Danke das funktioniert so weit! ;-)
Bei mir jetzt so:
-
Private Sub Workbook_Open()
Autofilter_An
End Sub
-
Sub Autofilter_An()
Selection.AutoFilter Field:=2, Criteria1:=""
End Sub
-

Nur:
Ich habe in einem File mehrere Arbeitsmappen die beim Start alle nach dem gleichen Kriterium gefiltert werden sollen (so wie oben beschrieben).
Es wird jetzt aber immer nur die aktuelle Arbeitsmappe, die geöffnet wird, gefiltert. Die anderen werden nicht gefiltert. ??!!?
Hm? Was mach ich da? Was anderes als Workbook_Open() ?

Danke,
Andreas

 

Moin, Andreas,

Dich sammeln, die Punkte sammeln, die wichtig sind und die Frage dann möglichst komplett stellen (möglichst so, dass Du sie selbst als Außenstehender auch verstehen würdest... *wink.gif*)

Als nächstes vielleicht mal die Gepflogenheiten der Ausdrucksweise von Excel übernehmen: eine Arbeitsmappe umfasst immer mindestens eine Tabelle (lassen wir den Typ mal dahingestellt), und jede Mappe existiert für sich alleine. Eine Tabelle hingegen kann nur in einer Mappe "bestehen"...

Wenn ich das Problem richtig sehe, sollen innerhalb einer Mappe alle Autofilter gesetzt werden - dies kann durch die Verwendung einer Schleife über alle Tabellen einer Mappe gemacht werden [dazu siehe dann bitte jedes Worksheet durchsuchen)...

 

Hallo,

richtig - eine Arbeitsmappe mit mehreren Tabelle - jede Tabelle hat einen Filter der gesetzt werden soll.

Funktioniert leider noch nicht ganz - folgendes verwende ich jetzt:

Private Sub Workbook_Open()
Mappendurchlauf
End Sub
-
Sub Mappendurchlauf()
Dim wks As Worksheet
For Each wks In Worksheets
Autofilter_An
Next wks
End Sub
-
Sub Autofilter_An()
Selection.AutoFilter Field:=2, Criteria1:=""
End Sub

Es wird aber immer wieder nur die aktuelle Tabelle (die geöffnet ist) aktualisiert. Die anderen werden nicht gefiltert - hab aber keinen Fehler im Code entdeckt - mit dem Debugger kann ich durchsteppen.

hm ??!?

Danke, Andreas

 

hi Andreas,
das ist einer der seltenen fälle wo man activate oder select verwenden sollte
klappt es ?

Sub Mappendurchlauf()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Activate
Autofilter_An
Next wks
End Sub

cu Micha

 

Moin, Andreas,

kein Wunder - Excel verhält sich genau so, wie man es erwarten kann: Es ist nur ein Blatt angesprochen.

In Deinem Code durchläufst Du zwar alle Tabellenblätter der Mappe, diese werden aber nicht aktiviert - so wird halt der Code für die Anzahl der in der Mappe vorhandenen Tabellen auf die aktive angewendet. Alternativ kann so vorgegangen werden (wo ist da aber der Bezug auf die andere Mappe?):

Code:

 

hi jinx,
da ich relativ selten ;-) activate oder select benutze habe ich den code sogar ausprobiert *biggrinlove
...und er funktioniert
und ich habe nicht "muss" sondern "sollte" geschrieben
oder meintest du etwas anderes ? *angel

cu Micha

 

Moin, Micha,

wenn es doch aber überflüssig ist...

 

Super Leute, danke!

Das mit Activate funktioniert!!

 

*lieber zu jinx nix sagt* ich weiss ja dass du recht hast *rolleyes.gif*
aber recht haben und recht bekommen sind zwei verschiedene schuhe ...
cu Micha