Ereignismakros bzw Ereignisprozeduren sind an ihr jeweiliges Objekt ( Tabellenblatt, Arbeitsmappe ) gebunden. Wir der Name schon sagt, reagieren sie auf ein Ereignis, welches durch den Anwender ausgelöst wird. Ereignisse können z.B. das Aktivieren eines Tabellenblatts oder die Änderung eines Zellwertes etc sein. Nachfolgend eine Auflistung der möglichen Ereignisse für ein Tabellenblatt. Da der Code an das Objekt "Tabellenblatt" gebunden ist, gehört er nicht in ein "Allgemeines Modul".
Siehe auch Programmierung -> Code aus Forum - in welches Modul.
Der schnellste Weg in die Entwicklungsumgebung zum richtigen Modul ist ein Rechtklick auf den Tabellenreiter und aus dem Kontextmenü "Code anzeigen" auswählen.
Es öffnet sich das Fenster für das betreffende Tabellenblatt. Im linken Dropdownfeld kann von "Allgemein" auf "Worksheet" gewechselt werden.
Im rechten Dropdownfeld steht nun eine Auswahl der möglichen Ereignisse zur Verfügung.
Die möglichen Ereignisse und durch was sie ausgelöst werden.
Die Bedeutung der übergebenen Werte:
ByVal Target As Range - Target, der Bereich bzw die Zelle in der das Ereignis ausgelöst wurde.
ByVal Target As Hyperlink - Target, Textanzeige des Hyperlinks.
ByVal Target As PivotTable - Target, die Pivottabelle, welche aktualisiert wird.
Cancel As Boolean - Cancel, Boolescher Wert. Die Möglichkeit die weitere Codeausführung zu unterbrechen.
Ein Codebeispiel. Es wird in einer beliebigen Zelle der Wert geändert.
Bei Ausführung erscheint eine Meldung über Zelladresse und neuen Zellwert.
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "Es wurde der Zellwert der Zelle: " & Target.Address & " geändert." & vbCr _
& "Neuer Zellwert: " & Target.Value
End Sub
Diese Codes stehen jetzt nur in dem entsprechenden Tabellenblatt zur Verfügung. Sollen sie in einem weiteren gültig sein, so muss der Code ebenfalls in dem gewünschten Blatt geschrieben/kopiert werden. Sollen sie in allen Tabellenblättern der Datei verfügbar sein, so helfen die Ereignismakros/-prozeduren der Arbeitsmappe.
Durch einen Doppelklick im Projektexplorer auf "DieseArbeitsmappe" öffnet sich das Codefenster für die Datei.
Hier kann im linken Dropdown wieder von Allgemein auf Workbook gewechselt werden. Im rechten Dropdownfeld stehen nun alle möglichen Ereignisse für die aktuelle Datei zur Verfügung.
Nachfolgend 2 Ereignisse aus der Liste.
Die Bedeutung der übergebenen Werte:
ByVal Sh As Object - Sh, dass jeweilige Tabellenblatt, in welchem das Ereignis ausgelöst wurde.
Ein Beispielcode:
Es erfolgt eine Meldung, welches Tabellenblatt aktiviert wurde.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "Es wurde Tabellenblatt [ " & Sh.Name & " ] aktiviert."
End Sub
2 weitere Beispiele für den Einsatz eines Ereignismakros / -prozedur finden sich hier:
Programmierung -> Mehr als 3 bedingte Formatierungen.
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
