VBA Filter
26.09.2017 10:13:13
Silke
wie kann man den Code ändern, das er die Farbe blau anzeigt:
Option Explicit
Private Sub cmd_Kunde_Click()
Dim wks As Worksheet
Dim objButton As Object
Set wks = ActiveSheet
Set objButton = wks.OLEObjects("Cmd_Kunde").Object
If objButton.Caption = "Alle anzeigen" Then
'If wks.AutoFilterMode Then wks.ShowAllData
If wks.FilterMode = True Then
wks.AutoFilterMode = False
End If
objButton.Caption = "Fehler anzeigen"
Else
Range("J3:J1000000").ClearContents ' löschen
'Formel mit automatisches ziehen
Range("J3") = "=IFERROR(IF(VLOOKUP(RC[-9],retoure_mak.xlsx!C2:C6,5,FALSE)=""00.00.0000"",""" _
",VLOOKUP(RC[-9],retoure_mak.xlsx!C2:C6,5,FALSE)),""Kunde nicht gepflegt"")"
Range("J3:J3").AutoFill Destination:=Range("J3:J" & Cells(Rows.Count, "A").End(xlUp).Row), _
Type:=xlFillDefault
'Formel als Festen Wert umwandelt
Columns("J:J").Select
Range("J2").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J3").Select
'Nur anzeigen wenn Farbe blau zu sehen ist
wks.Range("B2").CurrentRegion.AutoFilter Field:=10, Criteria1:=RGB(15773696, 0, 0),
Operator:=xlFilterCellColor, VisibleDropDown:=False
'wks.Range("B2").CurrentRegion.AutoFilter Field:=10, Criteria1:="Daten prüfen", _
'Operator:=xlAnd, VisibleDropDown:=False
objButton.Caption = "Alle anzeigen"
End If
End Sub
wks.Range("B2").CurrentRegion.AutoFilter Field:=10, Criteria1:=RGB(15773696, 0, 0),
Danke und hoffe ihr könnt mir helfen.
Gruß Silek