Zielwertsuche mit VBA
12.01.2009 09:38:00
Bastian
ich wende mich noch einmal an Euch, da ich bisher trotz Anwort einiger Helfer keine Lösung erhalten habe.
In der beigefügten Tabelle soll per Zielwertsuche über ein Makro Werte berechnet werden.
- Die Werte in Spalte I sind die veränderbaren Werte,
- Die Werte in Spalte Q sollen Null ergeben und sind die Zielwerte
Das Makro soll automatisch beim Aktivieren in vielen Zeilen eine Zielwertberechnung durchführen.
https://www.herber.de/bbs/user/58298.xls
Das Makro, dass ich verwende (ist in der derzeit Beispieltabelle nicht eingetragen) geht so:
Sub schleife()
Dim rng As Range
For Each rng In Range("Q13:Q22").Cells
rng.GoalSeek Goal:=0, ChangingCell:=rng.Offset(0, -8)
Next rng
End Sub
Ich erhalte immer schon gleich die Fehlermeldung:
"Fehler beim Kompilieren,
Sub oder Funktion nicht definiert"
Da ich das Problem nicht alleine lösen kann, bitte ich um Eure Hilfe!! Vielleicht kann ja mal _
_
einer
das Makro testen und mir sagen wo der Fehler liegt.
Vielen Dank und Gruß von Bastian