Microsoft Excel

Herbers Excel/VBA-Archiv

Zielwertsuche

Betrifft: Zielwertsuche von: J. Bode
Geschrieben am: 20.05.2008 14:09:59

Hallo Freunde,
ich brauch ein Makro das in einer Schleife die Zielwertsuche auslöst.

Zielzelle ist " I6 "
Zielwert ist " 0 "
Veränderbare Zelle ist " J6 ".

Das Ganze soll nun so laufen das es immer eine Zeile nachunten springt solange bis es zum letzten Eintrag gelangt ist.
Kann die Tabelle leider von hier nicht hochladen, schade;-)

Danke im voraus

Jochen

  

Betrifft: AW: Zielwertsuche von: Daniel
Geschrieben am: 20.05.2008 14:49:31

Hi

so vielleicht

Sub Makro3()
Dim Zelle As Range
Set Zelle = Range("I6")
Do Until Zelle.Formula = ""
    Range("I6").GoalSeek Goal:=0, ChangingCell:=Range("J6")
    Set Zelle = Zelle.Offset(1, 0)
Loop
End Sub



aber es macht definiv keinen Sinn, die Zielwertsuche mehrfach über die gleiche Zelle laufen zu lassen.
1x ist völlig ausreichend, dazu braucht du keine Schleife

Gruß, Daniel


  

Betrifft: AW: Zielwertsuche von: J. Bode
Geschrieben am: 20.05.2008 15:00:00

hay Daniel,
hatte mich vieleich mißverstänlich ausgedrückt, meinte es so:

Zielzelle ist " I6 "; Zielwert ist " 0 "; Veränderbare Zelle ist " J6 ";
Zielzelle ist " I7 "; Zielwert ist " 0 "; Veränderbare Zelle ist " J7 ";
Zielzelle ist " I8 "; Zielwert ist " 0 "; Veränderbare Zelle ist " J8 ";

usw bis Ende der Tabelle bzw. Einträge.

Danke
Jochen


  

Betrifft: AW: Zielwertsuche von: Daniel
Geschrieben am: 20.05.2008 15:46:14

Hi
dann in der Schleife anstelle von "Range("I6") "Zelle" verwenden und anstelle von "Range("J6")" "Zelle.Offset(0,1)"

Gruß, Daniel


  

Betrifft: AW: Zielwertsuche von: J. Bode
Geschrieben am: 20.05.2008 16:22:31

Hay Daniel,
bitte gib mir noch einmal das komplette Makro, habe es versucht aber meine VBA - Kenntnisse sind nicht so berauschend.
Danke für Deine Bemühungen.

Gruß
Jochen


  

Betrifft: AW: Zielwertsuche von: Daniel
Geschrieben am: 20.05.2008 17:16:46

HI

diese Zeile:


Range("I6").GoalSeek Goal:=0, ChangingCell:=Range("J6")



so umschreiben


Zelle.GoalSeek Goal:=0, ChangingCell:=Zelle.Offset(0,1)



kann eigentlich nicht so schwer sein.



Gruß, Daniel


  

Betrifft: AW: Zielwertsuche von: J. Bode
Geschrieben am: 21.05.2008 14:10:30

Hi,
danke für den Tipp.
Funktioniert wunderbar.
War auf dem falschen Weg;-)

Gruß
Jochen


 

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