Makro - Zielwertsuche
26.09.2004 17:14:45
WalterK
Im Forum habe ich folgendes Makro erhalten:
Private Sub worksheet_change(ByVal target As Excel.Range)
If target.Address = "$W$63" Then
Range("CM63").GoalSeek Goal:=Range("AA63").Value, ChangingCell:=Range("BS63")
Range("CM63").GoalSeek Goal:=Range("AA63").Value, ChangingCell:=Range("BS63")
End If
If target.Address = "$W$64" Then
Range("CM64").GoalSeek Goal:=Range("AA64").Value, ChangingCell:=Range("BS64")
Range("CM64").GoalSeek Goal:=Range("AA64").Value, ChangingCell:=Range("BS64")
End If
If target.Address = "$W$65" Then
Range("CM65").GoalSeek Goal:=Range("AA65").Value, ChangingCell:=Range("BS65")
Range("CM65").GoalSeek Goal:=Range("AA65").Value, ChangingCell:=Range("BS65")
End If
Das Makro wird gestartet, wenn ich z.b. die Zelle W63 oder W64 usw. verlasse.
Ist es möglich, das Makro dann starten zu lassen, wenn über eine Formelberechnung z.B. in Zelle Z63 oder Z64 usw. "Differenz" ausgegeben wird, und nicht mehr über das Verlassen einer Zelle.
Besten Dank im voraus.
Servus, Walter