Makro Zielwertsuche
05.02.2005 21:04:17
WalterK
Folgendes Makro läuft für eine Zielwertsuche und funktioniert auch:
Sub Schaltfläche29_BeiKlick()
Rang("CC37").GoalSeek Goal:=Range("AT39").Value, ChangingCell:=Range("BN37)
Rang("CC37").GoalSeek Goal:=Range("AT39").Value, ChangingCell:=Range("BN37)
Rang("CC38").GoalSeek Goal:=Range("AT40").Value, ChangingCell:=Range("BN38)
Rang("CC38").GoalSeek Goal:=Range("AT40").Value, ChangingCell:=Range("BN38)
Rang("CC39").GoalSeek Goal:=Range("AT41").Value, ChangingCell:=Range("BN39)
Rang("CC39").GoalSeek Goal:=Range("AT41").Value, ChangingCell:=Range("BN39)
End Sub
Mein Problem: Wenn z.B. AT40 leer ist, läuft das Makro nicht. Was muss ich ändern, dass dann die Zielwertsuche für AT40 ausgelassen wird.
Besten Dank, Walter