Freigeben über

Ereignisse des Worksheet-Objekts

Ereignisse in Blättern sind standardmäßig aktiviert. Wenn Sie die Ereignisprozeduren für ein Blatt anzeigen möchten, klicken Sie mit der rechten Maustaste auf das Blattregister und wählen im Kontextmenü Code anzeigen aus. Wählen Sie im Listenfeld Prozedur eines der folgenden Ereignisse aus.

Ereignisse auf Arbeitsblattebene treten ein, wenn ein Arbeitsblatt aktiviert wird, wenn der Benutzer eine Zelle des Arbeitsblatts ändert oder wenn die PivotTable geändert wird. Im folgenden Beispiel werden die Spalten A bis F in der Größe angepasst.

Private Sub Worksheet_Calculate() 
    Columns("A:F").AutoFit 
End Sub

Einige Ereignisse können verwendet werden, um eine Aktion durch das Standardanwendungsverhalten zu ersetzen oder um eine kleine Änderung am Standardverhalten vorzunehmen. Im folgenden Beispiel wird das Rechtsklickereignis abfangen und dem Kontextmenü für die Zellen B1:B10 ein neues Menüelement hinzugefügt.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ 
        Cancel As Boolean) 
    For Each icbc In Application.CommandBars("cell").Controls 
        If icbc.Tag = "brccm" Then icbc.Delete 
    Next icbc 
    If Not Application.Intersect(Target, Range("b1:b10")) _ 
            Is Nothing Then 
        With Application.CommandBars("cell").Controls _ 
            .Add(Type:=msoControlButton, before:=6, _ 
                temporary:=True) 
           .Caption = "New Context Menu Item" 
           .OnAction = "MyMacro" 
           .Tag = "brccm" 
        End With 
    End If 
End Sub

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.