Visual Basic Forum

Anonymous · Gast

hallo Leute,
ich habe folgenden "Zielwert suchen"-Makro geschrieben, der wunderbar funktioniert, so lange ich ihn über Extras-Makro-ausführen aufrufe:

cells(21 + Objekt1, 3).GoalSeek Goal:=1000, ChangingCell:=Range("D13")
cells(21 + Objekt2, 10).GoalSeek Goal:=1000, ChangingCell:=Range("K13")
cells(21 + Objekt3, 17).GoalSeek Goal:=1000, ChangingCell:=Range("G5")

Will ich ihn aber über eine Befehlsschaltfläche starten erhalten ich folgende Fehlermeldung:

"die Goal-Seek-Methode des Range-Objekts ist fehlerhaft".

Kann mir jemand helfen.
Danke
Gruß
Wolfe