Tabelle Linien per Makro
21.06.2021 18:23:39
Robert
Ich habe wieder mal ein Problem bei welchen ich auf Eure Hilfe hoffe.
Ich muß ein Tabellenblatt einrichten und in 26er Schritten jeweils nach unten eine dicke Umrandung bzw. Trennlinie und das Gleiche von A bis L. Dick umrandet alle 26 Schritte Dicke Trennlinie Horizontal in einem bestimmten Bereich. Die inneren Linien sollen mitteldick oder eine Nummer kleiner sein. Habe das ganze mal mit Makrorecorder aufgezeichnet, aber da bekommt man ja die Schwämmchen. Wäre nett wen Ihr mir einen Weg weisen könntet wie ich das anders geschrieben mit einem Makro lösen könnte.
Sub Linien
Range("A2:L26").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThick
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
End Sub
https://www.herber.de/bbs/user/146713.xlsm
