Zellenrahmen ändern
14.12.2022 11:03:19
Nikl
ich melde mich noch einmal zu diesem Thema.
Hier der aktuelle Code:
Dim i As Integer
If Intersect(Target, Range("D7,D5,E6:G6,D8:G8,D9,D10")) Is Nothing Then
With Target(1).MergeArea
For i = 7 To 10
With .Borders(i)
.Color = vbRed
.LineStyle = xlContinuous
.Weight = xlMedium
End With
Next i
End With
ElseIf Range("D7,D5,E6:G6,D8:G8,D9,D10").Value "" Then
With Target(1).MergeArea
For i = 7 To 10
With .Borders(i)
.Color = vbBlack
.LineStyle = xlContinuous
.Weight = xlMedium
End With
Next i
End With
End If
Meine Vorstellung zur Funktion:
Es soll überprüft werden ob die Zellen D5, E6:G6, D7,D8:G8, D9 und D10 gefüllt sind.
- Falls jeweilige Zelle nicht gefüllt ist soll diese einen roten rahmen haben
- Wenn Zelle gefüllt ist Rahmen von rot auf schwarz ändern
Die Zellen haben jedoch, wie in der Beispieldatei zu sehen, bereits einen schwarzen Rahmen hinterlegt.
Vielen dank für die Hilfe!