Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: Modul1

Sub LinienEinAus()
   With Selection.Borders
      If .LineStyle = xlContinuous Then
         .LineStyle = xlNone
      Else
         .LineStyle = xlContinuous
         .Weight = xlThin
      End If
   End With
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Format und Bereich