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.
- Activate
- BeforeDoubleClick
- BeforeRightClick
- Calculate
- Change
- Deactivate
- FollowHyperlink
- PivotTableUpdate
- SelectionChange
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für