Bedingte Formatierung mit VBA
17.02.2019 03:43:04
nightcab
Ich hab gestöbert aber leider nichts Passendes gefunden und brauche eine Lösung. Entweder in VBA oder bedingter Formatierung.
Es sind die Spalten F und O
F = Buchungstext O = Betrag
Normal ist die Spalte "O" für negative bzw. positive Zahlen so formatiert
* #.##0,00" ";[Rot] * #.##0,00" "
Nun möchte ich eine Ausnahme. Wenn in der Buchungstext-Spalte "F" Äpfel bzw. Birnen steht, soll die negative nicht rot sondern grün sein. Ansonst soll das schwarz/rot Schema beibehalten werden.
So funktioniert es NICHT:
=ODER(G100="Äpfel";G100="Birnen")
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zelle As Range
For Each zelle In Range("O100:O1899")
Select Case zelle.Value
Case Is = 0
Farbe = RGB(0, 0, 0) 'Schwarz
'? Wenn F100:F1899 "Äpfel, Birnen" = RGB(0, 176, 80) 'Grün
End Select
zelle.Font.ColorIndex = Farbe
zelle.Font.Bold = True
Next
End Sub
Gruß nightcab
Anzeige