Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1,B5,C7:C10]) Is Nothing Then
'hier der Code
End If
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
MsgBox "Die Zelle A1 wurde geändert"
End If
End Sub
Um ein OnChange-Ereignis in Excel VBA für eine bestimmte Zelle zu implementieren, folge diesen Schritten:
Öffne Excel und lade die Arbeitsmappe, in der du das VBA-Skript verwenden möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Im Projekt-Explorer wähle das Arbeitsblatt aus, für das du das OnChange-Ereignis einrichten möchtest.
Füge den folgenden Code in die Code-Ansicht des Arbeitsblattes ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
MsgBox "Die Zelle A1 wurde geändert"
End If
End SubSchließe den VBA-Editor und teste die Funktion, indem du die Zelle A1 änderst. Es sollte eine Meldung erscheinen.
Mit diesem Code wird das Worksheet_Change-Ereignis für die Zelle A1 aktiviert und ein Hinweis ausgegeben, wenn sich der Inhalt dieser Zelle ändert.
Fehler: Das Ereignis wird nicht ausgelöst.
ThisWorkbook eingefügt werden.Fehler: Es erscheint keine Meldung.
Es gibt verschiedene Möglichkeiten, um mit dem OnChange-Ereignis in VBA zu arbeiten. Eine alternative Methode ist die Verwendung mehrerer Zellen. Hier ein Beispiel:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1,B5,C7:C10")) Is Nothing Then
MsgBox "Eine überwachte Zelle wurde geändert"
End If
End SubMit dieser Variante kannst du mehrere Zellen auf Änderungen überwachen. Du kannst die Zellbereiche anpassen, um die für dich relevanten Zellen einzuschließen.
Hier sind einige praktische Beispiele für die Verwendung des excel onchange event:
Farbe ändern: Wenn der Wert in Zelle A1 geändert wird, kannst du die Hintergrundfarbe ändern:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A1").Interior.Color = RGB(255, 255, 0) ' Gelb
End If
End SubBerechnung auslösen: Du kannst auch eine Berechnung in einer anderen Zelle auslösen, wenn sich A1 ändert:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("B1").Value = Range("A1").Value * 2 ' Verdopple den Wert
End If
End SubApplication.EnableEvents = False-Anweisung, um zu verhindern, dass das Change-Ereignis rekursiv ausgelöst wird, wenn du in deinem Code Zellen änderst.vba onchange-Ereignissen den Überblick zu behalten.If Not Intersect(...) für verschiedene Zellvergleiche, um flexiblere Lösungen zu entwickeln.1. Frage
Was ist der Unterschied zwischen Worksheet_Change und Worksheet_SelectionChange?
Antwort: Worksheet_Change wird ausgelöst, wenn der Inhalt einer Zelle geändert wird, während Worksheet_SelectionChange ausgelöst wird, wenn zwischen Zellen gewechselt wird.
2. Frage
Kann ich das OnChange-Ereignis auch für andere Blätter nutzen?
Antwort: Ja, du kannst das Worksheet_Change-Ereignis in jedem Arbeitsblatt verwenden. Du musst den Code jedoch für jedes Arbeitsblatt individuell einfügen.