AutoFilter

Forumthread: AutoFilter
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: AutoFilter

AutoFilter

24.10.2002 17:18:48

Steffen

Hallo zusammen,

ich Filtere per Makro (AutoFilter) Zeilen aus meiner Liste.
Set R = Range("A:A")
With R
.AutoFilter
...
Ich möchte die gefundenen Spalten nun farblich hinterlegen.
Wie komme ich an die Eigenschaften der selektierten Zeilen möglichst einfach heran?

Besten Dank im Voraus.
Steffen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: AutoFilter

24.10.2002 17:27:24

Andre B
Re: AutoFilter

24.10.2002 17:31:22

Boris
Re: AutoFilter

24.10.2002 17:38:02

PeterW
Hallo Peter,

24.10.2002 17:45:32

Boris
Danke

24.10.2002 18:32:38

Steffen

Re: AutoFilter

24.10.2002 17:27:24

Andre B

Hey, du könntest ´n kleinen Trick anwenden:

Nach dem Filtern werden eh nur noch die Ergebnisse angezeigt, also kannst du doch einfach hingehen und die Zellen farblich hinterlegenlassen ( im Makro nach deinem Filter ).
Einzige Bedingung ist, du solltest den Filter wieder mit einem Makro auflösen und dabei bei allen Zellen die Markierung auflösen.

Zwar nicht elegant, aber effektiv

Re: AutoFilter

24.10.2002 17:31:22

Boris

Hallo Steffen,

im Makro selbst baust du nach deiner (beispielsweise so aussehenden)

Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="1"

zum Beispiel ein:

letzte = Range("a65536").End(xlUp).Row
Range(Cells(2, 1), Cells(letzte, 1)).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Also erst die letzte Zeile ermitteln und den Bereich so eingrenzen.

Gruß Boris

Re: AutoFilter

24.10.2002 17:38:02

PeterW

Hallo Boris,

kleiner Tipp gefällig? Es geht auch ohne Select. ;)

letzte = Range("a65536").End(xlUp).Row
With Range(Cells(2, 1), Cells(letzte, 1)).Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

Gruß
Peter

Hallo Peter,

24.10.2002 17:45:32

Boris

danke! Schon wieder was gelernt!

Find ich toll, dass du mein Anliegen weiterhin beherzigst!

Gruß Boris