Change-Ereignis trotz Änderung durch Formel
Schritt-für-Schritt-Anleitung
Um ein Makro auszuführen, auch wenn eine Zelle durch eine Formel verändert wurde, kannst du die folgende Methode verwenden. Diese Methode funktioniert gut für einzelne Zellen.
-
Öffne dein Excel-Dokument.
-
Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Suche im Projektfenster nach deiner Arbeitsmappe und öffne das richtige Arbeitsblatt.
-
Füge den folgenden Code in das Arbeitsblattmodul ein:
Private Sub Worksheet_Calculate()
Dim Target As Range
On Error GoTo finis
If Target.Address <> "$A$1" Then Exit Sub
MsgBox "Wert von A1 hat sich geändert"
finis:
End Sub
-
Schließe den VBA-Editor und speichere deine Arbeitsmappe.
Mit dieser change-formel kannst du sicherstellen, dass ein Ereignis ausgelöst wird, wenn der Wert von Zelle A1 sich ändert, egal ob durch eine manuelle Eingabe oder durch eine Formel.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn du mit größeren Bereichen arbeiten möchtest oder eine komplexere Logik benötigst, kannst du die change-formel auch auf andere Weise implementieren:
- Verwende die
Worksheet_Change-Ereignisprozedur, um Änderungen zu überwachen. Beachte, dass diese nur für manuelle Eingaben funktioniert.
- Eine weitere Möglichkeit wäre die Verwendung von
Application.OnTime, um regelmäßig nach Änderungen zu suchen.
Praktische Beispiele
Hier sind einige change-formel beispiele, die du ausprobieren kannst:
-
Einfaches Beispiel für die Überwachung einer bestimmten Zelle:
Private Sub Worksheet_Calculate()
If Range("B1").Value <> "" Then
MsgBox "B1 hat einen neuen Wert!"
End If
End Sub
-
Überwachung eines Bereichs:
Private Sub Worksheet_Calculate()
If Application.CountA(Range("A1:A10")) > 0 Then
MsgBox "Ein Wert in A1:A10 wurde geändert!"
End If
End Sub
Tipps für Profis
- Nutze
Application.EnableEvents = False, um zyklische Aufrufe zu vermeiden, wenn du innerhalb deiner Ereignisprozeduren Änderungen vornimmst.
- Kommentiere deinen Code gut, um die Nachvollziehbarkeit zu erhöhen.
- Teste deinen Code gründlich, um unerwartete Fehler zu vermeiden.
FAQ: Häufige Fragen
1. Kann ich Worksheet_Calculate auch für mehrere Zellen verwenden?
Ja, du kannst den Code anpassen, um mehrere Zellen zu überwachen, indem du Bedingungen für mehrere Adressen einfügst.
2. Gibt es eine Möglichkeit, die Änderung nur einmal auszulösen?
Ja, du kannst eine Boolesche Variable verwenden, um sicherzustellen, dass die Nachricht nur einmal pro Änderung angezeigt wird.
3. Funktioniert das auch in Excel Online?
Leider sind Makros in Excel Online nicht verfügbar. Diese Lösungen sind nur für die Desktop-Version von Excel geeignet.