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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen