Makro durch klick auf Zelle A4
06.04.2018 10:00:19
Jens
ich möchte gerne folgendes Makro:
Sub krank()
' krank Makro
Range("A4").Select
Selection.AutoFilter
ActiveSheet.Range("$A$4:$AJ$65").AutoFilter Field:=1, Criteria1:=RGB(0, 0, _
0), Operator:=xlFilterCellColor
With ActiveSheet.AutoFilter.Filters(1).Criteria1
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 45
.Gradient.ColorStops.Clear
End With
With ActiveSheet.AutoFilter.Filters(1).Criteria1.Gradient.ColorStops.Add(0)
.Color = 16777215
.TintAndShade = 0
End With
With ActiveSheet.AutoFilter.Filters(1).Criteria1.Gradient.ColorStops.Add(1)
.Color = 10921638
.TintAndShade = 0
End With
End Sub
Durch einen Klick auf die Zelle: A4 starten, könnte mir jemand das aufgezeichnete Makro dahingehend anpassen?
Ich bin gespannt, LG