Zellrahmen in mehreren Zellen
04.03.2017 16:06:29
Dieter(Drummer)
mit folgendem Makro (ein Teil aus dem Internet) wird ein Rahmen, oben, unten rechts und links, in D5:D16, gesetzt.
Die Horizontallinie und Zellen D5:D16, habe ich zusätzlich eingefügt. Wie muss das Makro lauten, damit es kürzer und ohne select ist?
Sub Rahmen()
Range("D5:D16").Select
Dim Index As Integer
For Index = xlEdgeLeft To xlEdgeRight
With Selection.Borders(Index)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
Next Index
End Sub