Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

geänderte Zelle nach Formel


Betrifft: geänderte Zelle nach Formel von: Captain Jack Sparrow
Geschrieben am: 25.07.2017 08:51:34

Guten Morgen,

ich habe ein Worksheet_Calculate() Ereignis laufen. Wenn sich also in diesem Bereich ein Formelwert ändert, läuft der Code auch. Ich würde aber gerne wissen, welche Zelle sich geändert hat. Mit Target.Address und dem Change Ereignis klappts ja nicht.

Was muss ich ergänzen?

Private Sub Worksheet_Calculate()
On Error Resume Next

If Not Application.Intersect(Target, Range("G6:G10")) Is Nothing Then

Application.EnableEvents = False
...
Danke
Jack

  

Betrifft: AW: geänderte Zelle nach Formel von: hary
Geschrieben am: 25.07.2017 10:01:17

Moin
Calculate hat aber kein Target.
Irgendwo im Blatt aenderst du ja den Wert, der fuer die Formel bestimmt ist.
Versuch mal

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Formelzelle As Range, zelle As Range
On Error Resume Next
Set Formelzelle = Target.DirectDependents
 For Each zelle In Formelzelle.Cells
  If zelle.Row > 5 And zelle.Row < 11 And zelle.Column = 7 Then
   MsgBox zelle.Address(False, False)
  End If
 Next
End Sub

gruss hary


  

Betrifft: AW: geänderte Zelle nach Formel von: Captain Jack Sparrow
Geschrieben am: 25.07.2017 10:43:54

Hi hary,

danke für Deine Hilfe.
Ich weiß, dass Calculate kein Target hat...leider. Insofern löst der Code nicht aus, wenn sich ein Formelwert ändert.

Gruß
Jack


  

Betrifft: AW: geänderte Zelle nach Formel von: hary
Geschrieben am: 25.07.2017 11:09:05

Moin
"Insofern löst der Code nicht aus, wenn sich ein Formelwert ändert."
Und wie es bei meinem aus? Passt es?
gruss hary


  

Betrifft: AW: geänderte Zelle nach Formel von: Captain Jack Sparrow
Geschrieben am: 25.07.2017 11:11:06

Ja,

so passt es :-)


Beiträge aus den Excel-Beispielen zum Thema "geänderte Zelle nach Formel"