Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zielwertsuche mit VBA

Zielwertsuche mit VBA
11.11.2015 13:58:29
Ralf
Hallo Forum,
ich habe eine Frage zur Zielwertsuche mittels VBA:
Ich möchte anhand der hochgeladenen Tabelle
https://www.herber.de/bbs/user/101411.xlsm
die Zelle E5 auf den Wert der Zelle C2 berechnen lassen. (Zielwertsuche) veränderbare Zelle: F5
Nebenbedingung: F5 darf sich max. auf 95% verändern, anschließend soll bis zum erreichen des Wertes aus C2 die Zelle C5 verändert werden.
In meinem genannten Beispiel ändert sich die zelle F5 auf > 100 % was dann natürlich unsinnig ist.
Kann ich die Prozentzahl in der Schaltfläche 1 aus der zelle C2 irgendwie in den Text übernehmen?
Kann mir jemand dabei helfen?
Vielen Dank im Voraus für eine Rückmeldung.
Viele Grüße
Ralf

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zielwertsuche mit VBA
11.11.2015 17:32:00
Michael
Hi Ralf,
was Du suchst ist anscheinend eine "gestaffelte" Zielwertsuche. Wenn ich es richtig verstanden habe, könnte das die Lösung sein:
Sub Zielwertsuche()
Range("F5") = 1
Range("E5").GoalSeek Goal:=0.85, ChangingCell:=Range("F5")
If [F5] > 0.95 Then
[F5] = 0.95
Range("E5").GoalSeek Goal:=0.85, ChangingCell:=Range("C5")
End If
End Sub
Happy Exceling,
Michael

AW: Zielwertsuche mit VBA
12.11.2015 06:20:58
Ralf
Hallo Michael,
funktioniert prima.
Vielen Dank!
Kann ich die Prozentzahl in der Schaltfläche 1 aus der Zelle C2 irgendwie in den Text übernehmen?
Vielen Dank für eine Rückmeldung.
Viele Grüße
Ralf

Anzeige
AW: Zielwertsuche mit VBA
12.11.2015 15:11:19
Michael
Hi Ralf,
ich war auf die Frage nicht eingegangen, weil mir nicht ganz klar war, welchen "Text" Du meinst.
Wenn Du einfach damit rechnen willst, schreibst Du im *Programm*text einfach einen Bezug zur Zelle, also z.B. so: 
Range("E5").GoalSeek Goal:=Range("C2"), ChangingCell:=Range("F5")
Den Text in der Schaltfläche bekommst Du nicht ohne VBA geändert; hab es mal getestet, Datei anbei: https://www.herber.de/bbs/user/101467.xlsm
Ein Schwachpunkt bei der "gestaffelten" Zielwertsuche ist, daß hinterher der Wert in C5 auch geändert wurde; der ist ja sicher von Bedeutung, also könnte man den zu Beginn des Makros auf den gewünschten Wert bringen.
Happy Exceling,
Michael

Anzeige
AW: Zielwertsuche mit VBA
13.11.2015 11:06:33
Ralf
Hallo Michael,
vielen Dank für Deine Ausführungen.
Alles funktioniert so wie es soll. Ich habe eine weitere Schleife eingefügt.
Ist ja selbsterklärend wie Du es geschrieben hast.
Viele Grüße
Ralf

freut mich, danke für die Rückmeldung owT
13.11.2015 13:09:18
Michael

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige