Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle1

Private Sub CommandButton1_Click()
    Call Trennlinie
End Sub

StandardModule: basMain

Sub Trennlinie()
   With CommandBars("Cell")
      .Controls(.Controls.Count - 1).BeginGroup = True
   End With
End Sub

Sub Zurueck()
   With CommandBars("Cell")
      .Controls(.Controls.Count - 1).BeginGroup = False
   End With
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Menue und Context