Arbeitsblätter und Diagramme
13.01.2005 17:57:59
rainer
habe schon einige Foren durchstöbert und nix passendes gefunden.
Ich möchte Autofilter aktualisieren über VBA.
Also erst alle rücksetzen (in allen Arbeitsblättern und dann wieder gezielt setzen, etwa so
ActiveSheet.AutoFilterMode = False
Selection.AutoFilter _
Field:=13, Criteria1:="42771", Operator:=xlAnd
Hierbei sollten alle Arbeitsblätter durchlaufen werden in der Form:
For Each ws In ActiveWorkbook.Sheets ' alles rücksetzen
Blatt_Name = ws.Name
Sheets(Blatt_Name).Select
ActiveSheet.AutoFilterMode = False
Next ws
Leider sind da ein paar Diagramme in der Arbeitsmappe, da gibt's dann so ne schöne Fehlermeldung, da die Diagramme auch als Arbeitsmappe identifiziert werden.
Wie kann ich also abprüfen, ob es sich um eine richtige Arbeitsmappe handelt oder um ein Diagramm ?
besten dank im Voraus
rainer