Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Menüpunkte zum Einfügen und Löschen von Zeilen hinzufügen

Gruppe

Button

Problem

Wie kann ich das Einfügen und Löschen von Zeilen zählen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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