Hallo zusammen,
ich brauche etwas Hilfe bei meinem Makro.
Das Makro soll eine komplette Zeile mit einem Muster versehen, wenn in der Spalte E eine 12 vorkommt. Das Makro macht das einwandfrei.
Ich würde das Makro gerne dementsprechend ändern, dass die Zeile mit der 12 NUR eingefärbt wird, wenn die Zeile die Farbe gelb (Farbcode 36) enthält. Damit möchte ich vermeiden, dass er alle Zeilem mit einer 12 in diesem Muster färbt. Der Befehl ... If Not c Is Nothing And c.Interior.ColorIndex = 36 Then ... funktioniert leider nicht wirklich.
Sub makro()
Dim rngU As Range, rngCol As Range, c As Range, FA As String
With ActiveSheet
With .Columns(5)
Set rngCol = Range(.Cells(1), .Cells(.Cells.Count).End(xlUp))
Set rngU = rngCol.Offset(, -4).Resize(, 58)
With rngCol
Set c = .Find(12, LookIn:=xlValues, Lookat:=xlWhole)
If Not c Is Nothing And c.Interior.ColorIndex = 36 Then
FA = c.Address
Do
'Testfüllung
With rngU.Rows(c.Row).Interior
.Pattern = xlLightUp
.PatternThemeColor = xlThemeColorDark2
.ColorIndex = 36
.TintAndShade = 0
.PatternTintAndShade = -0.14996795556505
End With
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> FA
End If
End With
End With
End With
End Sub
Kann mir jemand weiterhelfen?
|