Office: Excel Farbfilter per VBA bauen

Hallo wertes Office-Forum,

ich würde gerne mit VBA eine Funktion / ein Makro bauen, durch welches ich in einer Spalte nach 2 oder mehr Farben filtern kann.

Was ich bis jetzt habe ist das, doch damit geht es nicht -.-

Sub Versuch()
'
' Versuch Makro
'

'
ActiveSheet.Range("$A$2:$CC$1038").AutoFilter Field:=10, Criteria1:=RGB(255 _
, 255, 255), Operator:=xlFilterCellColor
ActiveSheet.Range("$A$2:$CC$1038").AutoFilter Field:=10, Criteria1:=RGB(255 _
, 255, 0), Operator:=xlFilterCellColor

End Sub

Ich glaube ich muss irgendwie ein ''oder'' einbauen, aber das ''or'' von excel entscheidet ja immer zwischen true und false, ich will ja aber keine Wahrheitsentscheidung sondern, dass es mir die Spalte nach den gewünschten Farben filtert.

Weiß vielleicht irgendjemand dazu eine Lösung?!

Danke im Vorraus!!

Liebe Grüße

C.Burger

:)

 

Hallo Burger

imho kann man nicht nach mehreren Farben filtern
Es gibt wohl noch einen Workaround über sortieren, ich hab jedoch mal einen anderen gewählt.

Den müsstest du im Zweifel nur auf deine Fragestellung anpassen.

Grüße

PHP:

         Sub filterworkaround()
Dim ArrTmp()
Farbe1 = RGB(255, 255, 0) ' Gelb
Farbe2 = RGB(255, 0, 0) 'Rot

With Worksheets("Tabelle1")
a = 0
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Rows
If .Cells(i, 1).Interior.Color = Farbe1 Or .Cells(i, 1).Interior.Color = Farbe2 Then
ReDim Preserve ArrTmp(0 To 1, 0 To a)
ArrTmp(0, a) = .Cells(i, 1)
ArrTmp(1, a) = .Cells(i, 1).Interior.Color
a = a + 1
End If
Next i

.Cells(1, 2).Resize(a, UBound(ArrTmp) + 1) = Application.Transpose(ArrTmp)
End With

End Sub


 

Hallo C.Burger,

du kannst die ungewollten Zeilen per VBA einzeln ausblenden. Basierend auf Jacks code könnte das so aussehen: (ungetestet)
Code:

Gruß, David

 

Hey David,

ich wäre an deiner Lösung wirklich interessiert. Habe dir vor 3-4 Tagen schon eine Private Nachricht geschickt, schau doch mal in dein Postfach *wink.gif*

Gruß

Camille

 

Hey Camille,

ich wäre an deiner Datei wirklich interessiert. Habe dir vor 3-4 Stunden schon eine Private Nachricht geschickt, schau doch mal in dein Postfach *wink.gif*

Gruß, David

 

Vielen Dank an alle Helfer.

Habe anderweitig eine Lösung gefunden! Wer an der Lösung interessiert ist kann sich gerne bei mir melden. Dann werde ich sie ihm weiterleiten.

Jedoch habe ich selbst mit dieser neuen Lösung noch Probleme und werde deshalb einen neuen passenden Thread starten in den ich auch die Codes meiner Lösung usw. einfügen werde und euch (wer auch immer sich angesprochen fühlt) um Rat fragen werde.

Gruß

Camille

Neuer Thread: http://www.ms-office-forum.net/forum...57#post1532157