Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
172to176
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
172to176
172to176
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AutoFilter

AutoFilter
24.10.2002 15: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
Anzeige
Re: AutoFilter
24.10.2002 15: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 15: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

Anzeige
Re: AutoFilter
24.10.2002 15: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 15:45:32
Boris
danke! Schon wieder was gelernt!

Find ich toll, dass du mein Anliegen weiterhin beherzigst!

Gruß Boris

Danke
24.10.2002 16:32:38
Steffen
Danke Jungs! Das war des Rätsels Lösung! :-)

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige