Zielwertsuche Makro geht nicht
09.01.2009 13:46:00
Bastian
beim Starten des Makros
Sub schleife()
Dim rng As Range
For Each rng In Range("I13:I200").Cells
rng.GoalSeek Goal = 0, ChangeingCell:=rng.Offset(0, - 10)
Next rng
End Sub
Erhalte ich immmer die Meldung "Fehler beim Kompilieren, Sub oder Funktion nicht definiert"
Ich weiß nicht wo der Fehler liegt.
Im Tabellenblatt sind die Zielzellen in Spalte Q, der Zielwert ist immer 0 und die veränderbaren Zellen
liegen in Spalte I. Ich möchte viele Zeilen mit Zielwertsuche bearbeiten lassen.
Ich weiß mir keine Rat, hat einer einen für mich?
Mit Grüßen von Bastian