gibt es irgendeine Möglichkeit die Rahmenbreite in der bedingten Formatierung zu ändern?
Danke
Christian
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich 'as ?
Dim vorh As Boolean, n As Long
Bereich = Array("A1", "A3", "C2")
For n = 0 To UBound(Bereich)
If Target.Address(0, 0) = Bereich(n) Then vorh = True
Next n
If vorh = False Then Exit Sub
If Target.Value = 45 Then ' hier die bedingte Formatierung
Dicke = xlThick
Else
Dicke = xlHairline
End If
For n = 7 To 10
With Target.Borders(n)
.LineStyle = xlContinuous
.Weight = Dicke
.ColorIndex = xlAutomatic
End With
Next n
End Sub