Gruppe
Format
Bereich
Bereich
Thema
Linien setzen und löschen
Problem
Einem ausgewählten Bereich sollen Linien hinzugefügt bzw. vorhandene gelöscht werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub LinienEinAus()
With Selection.Borders
If .LineStyle = xlContinuous Then
.LineStyle = xlNone
Else
.LineStyle = xlContinuous
.Weight = xlThin
End If
End With
End Sub