Clever-Excel-Forum

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

Hallo Jonas,

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

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:

(22.03.2018, 09:25)caudexpflanze schrieb: [ -> ]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?

Hallo R...,

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

Hi,

danke nochmal... funktioniert super.

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

caudexpflanze

Ego

Rabe

Ego

caudexpflanze