ich möchte ab Zeile 9 bis letzte benutzte Zelle der Spalte A das Makro ausführen und die Schriftfarbe von grau auf rot für die ganze Zeile ändern.
Geprüft wird die ursprüngliche Farbe (grau) in der Zelle der Spalte A.
Mein Versuch der nicht ganz funktioniert :-)
Sub ColorChange()
'Das Makro gilt ab der Zeile 9 bis letzte benutzte Zelle der Spalte A
Dim rng As Range
Dim lngLast As Long, lngIndex As Long
With ActiveSheet
lngLast = Application.Max(9, .Cells(.Rows.Count, 1).End(xlUp).Row) 'ab der Zeile 9 bis letzte _
benutzte Zelle der Spalte A
For lngIndex = 9 To lngLast
If .Cells(lngIndex, 1) "" And .Cells(lngIndex, 1).Font.Color = 8421504 Then 'grau
Set rng = .Cells(lngIndex, 1).Font.Color = 5263615
End If
Next
End With
End Sub
Was muss ich bitte ändern?Viele Grüße,
Selma