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!
Anzeige