suche ein VBA Funktion die mir positive Zahlen in der dritten Zeile farbig markiert.
A B C
ArtikelNr. Name Verkaufserlöse
345 Becker 20,00
345 Becker -19,00
456 Müller 18,00
500 Schmidt -17,00
500 Schmidt 16,00
Gesamt 18,00
Sub rot()
Dim rngC As Range
Application.ScreenUpdating = False
For Each rngC In Range(Cells(2, 3), Cells(Rows.Count, 3).End(xlUp))
If rngC > 0 Then
rngC.Font.Color = RGB(255, 0, 0)
Else
rngC.Font.ColorIndex = xlAutomatic
End If
Next
End Sub