Ich habe ein Problem.
Über ein CommandButton funktioniert das folgende Makro einwandfrei.
Private Sub CommandButton3_Click()
If Range("B184").Value = 500 Then
Exit Sub
Else
Range("B13").Select
Range("B184").GoalSeek Goal:=500, ChangingCell:=Range("B13")
End If
End Sub
Nun möchte ich, dass das Makro nach jeder Eingabeänderung automatisch ausgeführt werden soll. Also der Button soll nicht mehr betätigt werden, sondern das Makro sollte direkt im Tabellenblatt integriert sein.
Folgendendes habe ich ausprobiert:
Private Sub Worksheet_Calculate()
If Range("B184").Value
Leider funktioniert es nicht und es kommt folgender Fehler:
Laufzeitfehler "-2147417848 (80010108)":
Die Methode GoalSeek für das Objekt Range ist fehlgeschlagen
Ich bitte um Hilfe. Vielen Dank im voraus.