Makro Wert Goal aus Tabellen Spalte holen

[caudexpflanze]

Hallo Zusammen,

ich nutze seit vielen Jahren folgendes Makro, was super funktioniert:

Code:

Sub ZWSucher()

For Zeile = 1874 To 1946
   Range("T" & Zeile).GoalSeek Goal:=5, ChangingCell:=Range("AC" & Zeile)
Next Zeile

End Sub

Ziel war es immer, dass ein Zielwert in Spalte T (hier der Wert 5) durch anpassen der Spalte AC erreicht werden soll.
Den Zielwert haben wir bei Goal immer händisch geändert.

Jetzt ist es aber so, das der Zielwert sich ständig ändert und das händisch zu aufwändig ist.
Ich habe in die Tabelle nun eine neue Spalte R eingefügt, die pro Zeile immer einen anderen Wert hat... dieser Wert soll je Zeile das Goal für das Makro sein.

Wie schaffe ich es, dass der Wert für Goal nicht per Hand eingetragen werden muss, sondern er sich diesen Wert automatisch pro Zeile immer aus der Spalte R holt.

Ich bekomme es einfach nicht hin.

Könnt Ihr mir helfen?

Danke
Jonas

[Ego]

Hallo Jonas,

Code:

Goal:=Range("R" & Zeile).Value

[Rabe]

Hi,

wenn jemand ein Tool seit Jahren benutzt, kann es ja nicht so falsch sein und vielleicht nicht so uninteressant für Andere.

Ich oute mich jetzt mal:

Ziel war es immer, dass ein Zielwert in Spalte T (hier der Wert 5) durch anpassen der Spalte AC erreicht werden soll.
Den Zielwert haben wir bei Goal immer händisch geändert.

Ich verstehe die Funktion des Makros nicht.
Was macht das? Und warum?

[Ego]

Hallo R...,

das ist die VBA-Version der Zielwertsuche (GoalSeek).
Aber das Warum kann ich nicht beantworten.

[caudexpflanze]

Hi,

danke nochmal... funktioniert super.

Das ist nix besonderes... ist nur ne Spielerei die ich für Preisfindungen meiner Sammlungen nutze.