Zellenrahmen färben
13.12.2022 10:18:13
Nikl
ich habe in meiner Excel-Datei dick umrandete Zellen.
Gerne würde ich diese, wenn sie vom Bearbeiter ausgefüllt wurden schwarz färben. Vorher sollen sie bei noch keinem Eintrag rot umrandet sein, damit der Bearbeiter sieht, dass noch Werte eingetragen werden müssen.
Mit bedingter Formatierung funktioniert das ganze leider nicht, da ich aufgrund der Optik die dicken Rahmenlinien behalten möchte.
Dim Zelle As Range
For Each Zelle In Range("D7,D5,E6:G6,D8:G8,D9,D10")
If Zelle.Value > 0 Then
Zelle.Select
With Selection.Borders(xlEdgeLeft)
.Color = RGB(255, 0, 0)
End With
With Selection.Borders(xlEdgeTop)
.Color = RGB(255, 0, 0)
End With
With Selection.Borders(xlEdgeBottom)
.Color = RGB(255, 0, 0)
End With
With Selection.Borders(xlEdgeRight)
.Color = RGB(255, 0, 0)
End With
End If
Next Zelle
Das ist mein bisheriger Versuch. Das ganze soll über SelectionChange laufen.Mit freundlichen Grüßen
Nikl