|
Hallo,
ich brauche etwas Hilfe bei meinem Makro, wo mir in diesem Forum schon weit geholfen wurde!
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 dahingehend ä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.
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 Then
FA = c.Address
Do
'Testfüllung
With rngU.Rows(c.Row).Interior
.Pattern = xlLightDown
.PatternThemeColor = xlThemeColorDark1
.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?
|