Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Linien setzen und löschen

Gruppe

Bereich

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