ich suche ein Makro für eine Open end Tabelle (A4:B?), in der die einzelnen Zeilen gepunktet umrahmt werden sollen.
Desweiteren ein Makro, das die Linien wieder entfernt.
Wer hilft mir ?
Gruß Erich Müller
Sub PunktRahmenSetzen()
Range("A4").CurrentRegion.Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlDot
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlDot
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDot
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlDot
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlDot
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlDot
.Weight = xlThin
End With
End Sub
Sub AllRahmenEntfernen()
Range("A4").CurrentRegion.Select
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub