Zelle ermitteln, die ein Calculate-Ereignis auslöst
Schritt-für-Schritt-Anleitung
Um die R- und C-Werte (Row und Column) einer Zelle zu ermitteln, die ein Calculate-Ereignis in Excel auslöst, kannst Du den folgenden VBA-Code verwenden:
- Öffne Microsoft Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Wähle im Projekt-Explorer das gewünschte Arbeitsblatt aus (z.B. "Sheet1").
- Füge den folgenden Code in das Codefenster ein:
Private Sub Worksheet_Calculate()
Dim cell As Range
Dim dependentCells As Range
Set dependentCells = Me.Cells.SpecialCells(xlCellTypeFormulas)
For Each cell In dependentCells
If cell.HasFormula Then
MsgBox "Die Zelle " & cell.Address & " wurde neu berechnet!"
End If
Next cell
End Sub
- Schließe den VBA-Editor und kehre zu Excel zurück.
- Ändere Werte in Zellen, die Formeln enthalten, um das Calculate-Ereignis auszulösen.
Dieser Code nutzt das Worksheet_Calculate-Ereignis, um alle abhängigen Zellen zu ermitteln. Beachte, dass dies in Excel 2010 oder später ausgeführt werden sollte.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Methode, um das Verhalten von target.calculate zu nutzen, wäre die Verwendung des Worksheet_Change-Ereignisses:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Columns("B")) Is Nothing Then
MsgBox "Änderung in Zelle " & Target.Address
End If
End Sub
Dieser Code zeigt eine MessageBox an, wenn eine Änderung in Spalte B erfolgt. Es ist eine einfache Möglichkeit, um zu erfahren, welche Zelle eine Änderung ausgelöst hat und damit das Calculate-Ereignis beeinflusst.
Praktische Beispiele
-
Beispiel für die Verwendung von Worksheet_Calculate:
- Angenommen, Du hast in Zelle A1 die Formel
=B1*2. Ändere den Wert in B1 und beobachte, wie das Calculate-Ereignis ausgelöst wird und die Nachricht angezeigt wird.
-
Beispiel für die Verwendung von Worksheet_Change:
- Ändere den Wert in Zelle B1, und Du erhältst eine Meldung über die Änderung in der Zelle.
Tipps für Profis
- Nutze
Application.CalculationState, um den Status der Berechnung zu überprüfen, bevor Du das Calculate-Ereignis verarbeitest.
- Vermeide unnötige Berechnungen, indem Du nur spezifische Zellen oder Bereiche beobachtest, anstatt die gesamte Arbeitsmappe.
FAQ: Häufige Fragen
1. Kann ich auch mehrere Zellen gleichzeitig überwachen?
Ja, Du kannst das Target-Objekt im Worksheet_Change-Ereignis verwenden, um Änderungen in mehreren Zellen zu erfassen.
2. Wie kann ich sicherstellen, dass der Code nur in bestimmten Zellen ausgeführt wird?
Verwende die Intersect-Funktion, um sicherzustellen, dass der Code nur für spezifische Zellen oder Bereiche ausgeführt wird.