Makro Zielwertsuche

Bild

Betrifft: Makro Zielwertsuche
von: WalterK
Geschrieben am: 05.02.2005 21:04:17
Hallo zusammen!
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
Bild

Betrifft: AW: Makro Zielwertsuche
von: Ulf
Geschrieben am: 05.02.2005 21:13:48

Sub Schaltfläche29_BeiKlick()
if [at40]<>"" then
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 if
End Sub

Ulf
Bild

Betrifft: AW: Makro Zielwertsuche
von: WalterK
Geschrieben am: 05.02.2005 21:21:50
Hallo Ulf
Besten Dank, funktioniert ausgezeichnet.
Servus, Walter
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro Zielwertsuche"