Filter für Schriftfarbe

Hallo,
vielleicht hat jemand eine Lösung, mit der ich mein Makro flexibler gestalten
kann. Folgende Aufgabenstellung: Ein Filter für die Schriftfarbe, mit dem die
betreffenden Zeilen eingeblendet werden. Eine zusätzliche Spalte, mit der man
über den AutoFilter selektieren könnte, ist nicht vorgesehen. Meine Überlegung
ist nun, das man mittels Application.InputBox("Bitte ...", Type:=8) und
Application.CommandBars("Font Color") die entsprechende Spalte und Schriftfarbe
per Maus auswählen könnte. Aber wie kann ich die Farbwahl per Mausclick
auswerten? Hier mein "unflexibler" Filter; Spalte A und Schriftfarbe rot als
Kriterium:


Sub FilterSchriftfarbeRot()
Dim i As Long
Dim objRow As Object
Application.ScreenUpdating = False            'Bildschirmaktualisierung aus.
For Each objRow In ActiveSheet.UsedRange.Rows 'Alle Zeilen einblenden.
objRow.Hidden = False
Next
For i = 2 To ActiveSheet.UsedRange.Rows.Count
Range("A" & i).Select
If ActiveCell.Font.ColorIndex <> 3 Then   'Alle Zeilen mit Schriftfarbe
ActiveCell.EntireRow.Hidden = True    '<> rot ausblenden.
End If
Next i
Range("A1").Select
Application.ScreenUpdating = True             'Bildschirmaktualisierung ein.
End Sub

Für Eure Hilfe im voraus besten Dank.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub FilterSchriftfarbeRot() Dim i As Long Cells.Select Selection.EntireRow.Hidden = False Range("a1").Select j = Range("b1").Value 'in b1 wird die Spalte ausgewählt Farbe = Range("c1").Value ' in c1 wird die Farbe ausgewählt For i = 2 To ActiveSheet.UsedRange.Rows.Count If Cells(i, j).Font.ColorIndex = 3 Then 'Alle Zeilen mit Schriftfarbe rot ausblenden Cells(i, j).EntireRow.Hidden = True End If Next i Range("A1").Select End Sub

Hello Holger,
ja schon gut, denn schreibst du eben wieder <> 3 , so nun das Problem mit der Maus, also ich würde folgendes machen, du brauchst doch die Spaltenzahl als Zahl, dies musst du doch Excel plausibel machen und irgenwie anwählen auch mit der Maus, das Gleiche natürlich auch bei der Farbe:
am Einfachsten würde ich für die Auswahl der Spalte in der 1. Zeile jede Zelle mit einem durchsichtigen Rechteckfelder versehen und ein ganz einfaches Makro schreiben und jeweils diesen Feldern zuweisen, was nur eins macht in z.B. b1 eine Zahl reinzuschreiben, also bei anklicken von "Spalte A" (Zelle a1) wird in b1 eine 1 reingeschrieben, ein 2. Makro bei draufklicken auf Zelle b1 wird in b1 eine 2 reingeschrieben usw., also so viele Makros, wie du Spalten hast, bei der Farbe würde ich ebenfalls so vorgehen und gleich die Farben mit den entsprechend eingefärbten Rechtecken versehen und dies in Zelle c1 reinschreiben und fertig. Ich weis zwar du willst wahrscheinlich bei den Spalten die Spaltenüberschrift mit dem Cursor anklicken, aber kenne ich nicht die Lösung. Wie gesagt viel schöner wäre es, dies mit einem Formular zu machen, dort könnte man die Spaltenüberschriften als Grafik jeweils nehmen und die Farben als bunte Felder gleich daneben.
Gruss WS

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread