alle 4 Rahmenlienien in einen Code unterbringen
Karsten
ich habe einen Code versucht anzupassen, aber so geht es nicht.
Kann mir jemand helfen alle 4 Borders unterzukriegen? Es geht nur immer mit einem (bei mir).
Danke für Eure Hilfe.
Gruß
Karsten
With Selection.Borders(xlEdgeTop) And Selection.Borders(xlEdgeBottom) And Selection.Borders(xlEdgeRight) And Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
iColor = .Colorindex
.Colorindex = 4
.Weight = xlThick
Application.Wait Now + TimeSerial(0, 0, 1)
.Colorindex = iColor
End With