Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1364to1368
1364to1368
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA + Schleife + Solver + Hilfe!!!

Forumthread: VBA + Schleife + Solver + Hilfe!!!

VBA + Schleife + Solver + Hilfe!!!
25.06.2014 17:33:45
Naja
Hallo,
ich würde gerne den unten stehenden Befehl für eine Range umformen. Anstatt wie unten beschrieben, soll dies nicht nur für die "Cell(21,2)" (gleich mit "B21) geschehen sondern für die ganze Range (B21:BI115).
Ausformuliert: Wenn in Zelle B21 eine 1 steht dann soll Solver diese Zelle als Binärvariabel deklariere. Andernfalls als 0.
Statt dies jetzt für jede Zelle zu programmieren, würde ich gerne die Range mit einem Befehl abdecken...Leider hab ich kein Plan wie...Meine VBA Kenntnisse sind miserabel:)
Public Function SolverMitVBA()
If ActiveCell.Cells(21, 2) = 1 Then
Solver.SolverAdd CellRef:="B21", Relation:=5, FormulaText:="binär"
ElseIf ActiveCell.Cells(21, 2) = 0 Then
Solver.SolverAdd CellRef:="B21", Relation:=2, FormulaText:="0"
End If
Beste Grüße

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA + Schleife + Solver + Hilfe!!!
26.06.2014 07:33:04
MCO
Moin, Naja!
Versuch mal das
Sub Solver_schleife()
for each cl in Range (B21:BI115)
if cl.value = 1 then Solver.SolverAdd CellRef:=cl.address(0,0), Relation:=5, FormulaText:="binä _
r"
if cl.value = 0 then Solver.SolverAdd CellRef:=cl.address(0,0), Relation:=2, FormulaText:="0"
next cl
End Sub
Ich hab das ganze nicht getestet, sollte aber funktionieren :-)
Bitte beachte, dass es jetzt keine Funktion sondern eine Prozedur ist.
Gruß, MCO
Anzeige
;

Forumthreads zu verwandten Themen

Solver-Verweis automatisch setzen
Melanie

Hallo liebes Forum,
ich bin ziemlich am Verzweifeln :-(!
Ich schreibe für meine Abschlussarbeit ein VBA-Programm, in dem der Solver-Befehl ausgeführt werden soll. Der Solverbefehl ist programmiert und das AddIn "Solver" ist auch installiert. Das Programm soll als Anwendung ausgeführt we...
31.10.2008 17:18:00
Thread-ID: 1020929
3 Beiträge
Solver ValueOf:=variable Zelle
S.

Hallo zusammen,
ich habe mir mit dem Makrorekorder einen Solver aufgezeichnet, den ich jetzt modifizieren will. Alles klappt prima, solange der ValueOf:= eine Zahl in Klammern enthält. Sobald ich eine variable Zelle (z. B. Cells(1,1) oder "$A$1") angebe, wird das Makro zwar ausgeführt, es e...
19.11.2008 16:57:00
Thread-ID: 1026112
2 Beiträge
Solver-Funtion VBA
Uwe

Hallo,
ich möchte gern mit der Solverfunktion einen Wert errechnen. In dem Feld "ValueOf" kann jedoch nur ein fester Wert angegeben werden. Ich möchte jedoch einen Bezug zu einer Zelle. Dies scheint aber wohl nicht zu funktionien.
folgendes Makro habe ich z.Zt.:
Sub Solvertest() s...
04.12.2008 14:21:11
Thread-ID: 1030177
2 Beiträge
Verwirrungen beim Solver
Stephan

Hallo zusammen,
ich versuche, eine Solver-Routine mittels eines Buttons zu starten. Der Button ist jeweils auf zwei separaten Tabellenblättern positioniert. Leider funktioniert die Berechnung nur dann einwandfrei, wenn auch die Ergebnisse auf dem Tabellenblatt ausgegeben werden, auf dem die...
09.02.2009 11:23:22
Thread-ID: 1048597
7 Beiträge
Anzeige
SOLVER Verweis
Peter

Hallo,
wie kann man in EXCEL 2007 den Verweis auf den Solver setzen? So wie bei EXCEL 2003 geht es ja leider nicht mehr.
14.03.2009 17:05:08
Thread-ID: 1060202
4 Beiträge
Anzeige
Solver automatisieren
Daniel

Hallo zusammen
ich habe folgendes Problem:
ich möchte mit Hilfe des Solvers den Wert in Spalte 1 so ändern, dass in Spalte 2 ein bestimmer Wert steht. So klappt das auch ganz gut, aber ich möchte das nun für beliebig viele Zeilen automatisieren, ohne für jede Zeile einzeln den Solver au...
05.05.2009 01:19:36
Thread-ID: 1072938
4 Beiträge
Anzeige
Solver-Dialog öffnet sich nicht
Lars

Hallo,
ich habe in einer Excel-Datei ein Solver-Problem aufgesetzt. Den Solver steuere ich über VBA. Das funktioniert auch tadellos. Jedoch lässt sich der normale Solver-Dialog nicht mehr öffnen. Das Solver-problem ist richtig gespeichert (Ausgabe mit SolverSave) und kommt auch zu richtigen...
07.05.2009 10:24:00
Thread-ID: 1073522
2 Beiträge
Umgehung eines nicht lösbaren Solver-Problems
Hoof

Hallo liebe Herber-Gemeinde,
ich stehe vor folgendem Problem:
Ich habe ein nicht konvergentes Solver-Problem mit 16 veränderbaren Zellen. Ich möchte eine vorgegebene Zielzelle maximieren. Der Solver schafft dies nicht, da es keine konstanten Zusammenhänge zwischen den veränderbaren Zell...
08.05.2009 11:51:42
Thread-ID: 1073850
11 Beiträge
Solver-Frage
MBorn

Hallo am Sonntag,
ich habe so oft ähnliche Problemstellungen, wie diese und glaube, das müßte
mit dem Solver doch gut zu lösen sein. Aber die Tutorials oder die Filmchen bei
Yolutube helfen mir nicht weiter. Vielleicht weiß einer von Euch Rat?

Die Frage ist, welche Werte in...
07.06.2009 16:52:38
Thread-ID: 1079723
3 Beiträge
Problem mit Solver
Stefan

Hallo,
ich hab ein problem mit dem Solver. Ich habe mir ein Makro geschrieben, in dem eine Solverberechnung eingebunden ist. Das funktioniert auch ohne Probleme. Jetzt habe ich aber auf einem Tabellenblatt zweimal dieses Makro eingebunden (mit Buttons zum Starten des Makros,usw.). Die Makro...
18.06.2009 14:16:46
Thread-ID: 1082591
3 Beiträge
Solver Probleme
Reinhard

Hallo Wissende,
in A1 steht =B1+C1
im Add-In manager habe ich Solver mitaktiviert.
Dann ein Makro aufgezeichnet und den Solver angeklickt.
Im Fensterchen (Solver-Parameter) habe ich dann Zielzelle A1 eingetragen, als Zielwert "Wwert" angehakt und 100 eingegeben.
Als "verände...
11.07.2009 22:11:02
Thread-ID: 1087926
6 Beiträge
Anzeige
Solver - Makro aufgezeichnet, lässt sich nicht abs
u_hoernchen

habe über Makro Aufzeichnen die Benutzung des Solvers aufgezeichnet. Der Code sieht dann aus wie folgt.
SolverOk SetCell:="$K$39", MaxMinVal:=3, ValueOf:="0", ByChange:="$K$16"
SolverSolve
Beim Abspielen hängt er sich dann allerdings bei "SolverOK" auf und sagt "Sub oder Function n...
20.07.2009 13:09:09
Thread-ID: 1089960
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige