Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub NewBtns()
   Dim oBtn As CommandBarButton
   Set oBtn = Application.CommandBars("Cell").Controls.Add
   On Error Resume Next
   With oBtn
      .Caption = "Zeilen einfügen"
      .OnAction = "Einfuegen"
      .BeginGroup = True
      .Style = msoButtonCaption
   End With
   Set oBtn = Application.CommandBars("Cell").Controls.Add
   With oBtn
      .Caption = "Zeilen löschen"
      .OnAction = "Loeschen"
      .Style = msoButtonCaption
   End With
   On Error GoTo 0
End Sub

Sub ResetBtns()
   On Error Resume Next
   With Application.CommandBars("Cell")
      .Controls("Zeilen einfügen").Delete
      .Controls("Zeilen löschen").Delete
   End With
   On Error GoTo 0
End Sub

Sub Einfuegen()
    Selection.EntireRow.Insert
End Sub

Sub Loeschen()
    Selection.EntireRow.Delete
End Sub

    

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