Hallo Matthias,
was bedeutet
AN52 und AN53 sind verbunden usw.
Wenn du den z.B. den Bereich AN52:AO58 ansprichst, wird davon ausgegangen, dass alle Zellen in diesem Bereich verbunden zu einer Zelle sind, und es werden die äußeren Rahmen in diesem Bereich weiß gefärbt.
Willst du in diesen Bereichen mehrere verbundene Zellen ansprechen, so musst du auch die inneren Rahmenlinien einfärben:
Sub weiss()
With Range("N46,O46,AN52:AO58,AQ52:AT58")
.Font.ColorIndex = 2 'Schriftfarbe
.Borders(xlEdgeLeft).ColorIndex = 2 'Rahmen links
.Borders(xlEdgeRight).ColorIndex = 2 'Rahmen rechts
.Borders(xlEdgeBottom).ColorIndex = 2 'Rahmen unten
.Borders(xlInsideVertical).ColorIndex = 2 'Rahmen innen vertikal
.Borders(xlInsideHorizontal).ColorIndex = 2 'Rahmen innen horizontal
.Borders(xlTop).ColorIndex = 2 'Rahmen oben
End With
End Sub
Sub schwarz()
With Range("N46,O46,AN52:AO58,AQ52:AT58")
.Font.ColorIndex = 1 'Schriftfarbe
.Borders(xlEdgeLeft).ColorIndex = 1 'Rahmen links
.Borders(xlEdgeRight).ColorIndex = 1 'Rahmen rechts
.Borders(xlEdgeBottom).ColorIndex = 1 'Rahmen unten
.Borders(xlInsideVertical).ColorIndex = 1 'Rahmen innen vertikal
.Borders(xlInsideHorizontal).ColorIndex = 1 'Rahmen innen horizontal
.Borders(xlTop).ColorIndex = 1 'Rahmen oben
End With
End Sub
Gruß
M.O.