VBA: Autofilter aktiv, unsichtbare Zeilen nicht ä
25.11.2004 16:52:02
Heiko S.
folgendes Problem.
Ich habe eine Tabelle mit ca. 1000 Zeilen und 40 Spalten, jede Spalte hat einen Autofilter.
Ich habe mir ein Makro geschrieben das in markierten Bereichen Änderungen durchführt, z.B. +1. Den markierten Bereich frage ich mit
Zellen = ActiveWindow.Selection.Address
ab.
Nun zum Problem:
Wenn ein Autofilter aktiv ist und ich einen Bereich markiere dann führt mein Makro die Änderung auch auf die nicht sichtbaren (per Filter unterdrückten) Zeilen aus.
Z.B Filter an, Zeilen Nummer 1,2,3,44,45,46,47,48, sichtbar, wenn ich nun den Bereich 3,44 markiere dann werden leider auch die Zeilen 4 - 43 verändert.
Interesant ist, wenn ich den Bereich 3,44 markiere und im Tabellenblatt die Hintergrundfarbe ändere macht EXCEL dies nur für Zeile 3 und 44 die Zeilen 4 - 43 sind nicht gelb.
Per Recorder aufgeschriebene Makros haben mich nicht weiter gebracht die sehen immer so aus, ob Filter aktiv oder nicht. Aber das verhalten von Excel ist verschieden.
Range("B14:B22").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Also stellt sich mir die Frage wie erkennt EXCEL das bei aktiven Autofilter nur die sichtbaren Zeilen verändert werden die unterdrückten aber nicht ???
Hat jemand eine Lösung in VBA wie man das abfragen/abfangen kann ???
Schon mal einen Dank im vorraus für alle die sich mit meinem Probelm beschäftigen.
Gruß Heiko