Makro - Wenn<0 dann Schriftfarbenänderung

[sarkami]

Guten Morgen,

bin auf der Suche nach einem Makro was die Schriftfarbe aller Zahlen die kleiner als Null sind, in dem Bereich A1-A20 und B1-B20, in Rot ändert.

Grüsse

[Luffy]

Hallo,

das geht auch ohne Makro. oder willst du unbedingt eines?

[sarkami]

ja, muss ein makro sein, also keine bedingte formatierung

[chris-ka]

Hi,

bedingte Formatierung wäre ja auch nicht erforderlich....
da würde die ganz normale Formatierung reichen.

Aber gut hier als Makro

Code:

Option Explicit
Sub unternehmerIn()
Dim rng_c As Range
For Each rng_c In Range("A1:B20")
    If IsNumeric(rng_c.Value) Then
      rng_c.Font.Color = IIf(rng_c < 0, vbRed, vbBlack)
    End If
Next
End Sub

oder nimm diese Makro

Code:

Sub ff()
    Range("A1:B20").NumberFormat = "General;[Red]-General"
End Sub

Formatierung ggf. anpassen im Code