Ich habe eine Datenblatt, in welchem ich alle grau hinterlegten Zellen umranden möchte!
Habe schon ein Makro versucht, dieses tut aber nicht! Kann mir jemand mein Makro berichtigen!
Wäre echt klasse!
Danke im Voraus!
Chris
For j = 5 To 12
For k = 7 To 10
If Cells(8, j).Interior.ColorIndex = 15 Then
With Cells(k, j).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Cells(k, j).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Cells(k, j).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Cells(k, j).Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next k
Next j