zur Darstellung meines Problems folgender Code, mit dem ich erreiche, dass Range("E22") auf den Wert von Range("M4") reagiert.
Die Reaktion erfolgt hier logischerweise auch dann, wenn ich auf dem Tabellenblatt irgendwo anders eine
Änderung vornehme. Das soll aber nicht sein.
Wie muss ich den Code anpassen, so dass 'calculate' nur dann reagiert, wenn ich in M4 den Wert '2' erstelle.
Falls es von Bedeutung ist: Der Wert wird mittels Optionsbutton erzeugt.
Falls es 'by the way' möglich ist: Wenn der Wert 2 ist, soll in Range("E22") der Wert 1 erzeugt werden.
Private Sub Worksheet_Calculate()
On Error GoTo ErrExit
Application.EnableEvents = False
If Range("M4").Value = 2 Then
Range("E22").Value = 25
'MsgBox "E22 hat auf M4 reagiert", vbInformation, "Hinweis"
Else
End If
ErrExit:
Application.EnableEvents = True
End Sub
Vielen Dank vorab!Dietmar aus Aachen