Gruppe
Menue
Bereich
Button
Thema
Menüpunkte zum Einfügen und Löschen von Zeilen hinzufügen
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