Microsoft Excel

Herbers Excel/VBA-Archiv

Makro Zielwertsuche

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
  


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


  


Betrifft: AW: Makro Zielwertsuche von: WalterK
Geschrieben am: 05.02.2005 21:21:50

Hallo Ulf

Besten Dank, funktioniert ausgezeichnet.

Servus, Walter


 

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