Ereignisse Worksheet (Tabellenblatt)

Events

Worksheet_Activate

• Tritt ein, wenn ein Tabellenblatt aktiviert wird.

Worksheet_BeforeDoubleClick

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 With Tabelle1
  If Not .AutoFilterMode = True Then
   .Range("A1").AutoFilter
  End If
 .Range("A1").AutoFilter Field:=1, Criteria1:=ActiveCell.Value, _
  Operator:=xlAnd, VisibleDropDown:=True
 End With
End Sub

Worksheet_BeforeRightClick

Private Sub Worksheet_BeforeRightClick (ByVal Target As Range, Cancel As Boolean)
 Dim Bereich As Range
 Set Bereich = Range("A1:D10")
 If Intersect(Target, Bereich) Is Nothing Then Exit Sub
 Cancel = True
End Sub

Worksheet_Calculate

• Tritt ein, wenn eine Tabelle neu berechnet wird.

Worksheet_Change

• Tritt ein, wenn sich der Wert in einer Zelle ändert.

Private Sub Worksheet_Change (ByVal Target As Excel.Range)
  Anpassen
End Sub

Sub Anpassen()
  Cells.EntireColumn.AutoFit
  Cells.EntireRow.AutoFit
End Sub

Worksheet_Deactivate

• Tritt ein, wenn ein Tabellenblatt deaktiviert wird, wenn z. B ein Tabellenblatt verlassen wird.

Worksheet_FollowHyperlink

• Tritt ein, wenn der Anwender auf einen Hyperlink in einer Tabelle klickt.

Worksheet_SelectionChange

• Tritt ein, wen sich die Markierung auf einem Tabellenblatt ändert.

'Einen Zeilenzeiger realisieren, S. 253 Held VBA
Private Sub Worksheet_SelectionChange (ByVal Target As Range)
 Application.EnableEvents = False
 Rows(Target.Row).Select
 Target.Activate
 Application.EnableEvents = True
End Sub

Worksheet_Activate

'Listing 8.10: Beim Tabellenwechsel ein Passwort abfragen, S. 247, Held VBA
Private Sub Worksheet_Activate()
 Dim s As String
 s = InputBox("Bitte Passwort eingeben!", "Passwortabfrage")
 If s <> "Test" Then
  Sheets(1).Activate
 End If
End Sub

'Listing 8.8: Eine Tabelle beim Zugriff schützen
Private Sub Worksheet_Activate()
  ActiveWorkbook.Protect Password:="Zauberschlüssel", Structure:=True
End Sub

Worksheet_Deactivate

'Listing 8.8: Eine Tabelle beim Zugriff schützen, Held VBA, S. 245
Private Sub Worksheet_Deactivate()
  ActiveWorkbook.Unprotect Password:="Zauberschlüssel"
End Sub