Gruppe
Menue
Problem
Wie kann ich das Einfügen und Löschen von Zeilen zählen lassen?
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