Hallo ihr Lieben VBA-Gurus!!!
Ich habe ein Solver Problem und hoffe ihr könnt mir weiter helfen. Dazu folgender VBA Code:
SolverOk SetCell:=Cells(SetCellZeile, SetCellSpalte), MaxMinVal:=1, ValueOf:="0", ByChange:= _
"" & Cell1 & "," & Cell2 & "," & Cell3 & "," & Cell4 & "," & Cell5 & "," & Cell6 & "," & Cell7 & "," & Cell8 & "," & Cell9 & "," & Cell10 & "," & Cell11 & "," & Cell12 & "," & Cell13 & "," & Cell14 & "," & Cell15 & "," & Cell16 & "," & Cell17 & "," & Cell18 & "," & Cell19 & "," & Cell20 & "," & Cell21 & "," & Cell22 & "," & Cell23 & "," & Cell24 & "," & Cell25 & "," & Cell26 & "," & Cell27 & "," & Cell28 & "," & Cell29 & "," & Cell30 & "," & Cell31 & "," & Cell32 & "," & Cell33 & "," & Cell34 & "," & Cell35 & "," & Cell36 & "," & Cell37 & "," & Cell38 & ""
SolverAdd CellRef:=CellRef1, Relation:=2, FormulaText:=GESAMT1
SolverAdd CellRef:=CellRef2, Relation:=2, FormulaText:=GESAMT2
SolverAdd CellRef:=CellRef3, Relation:=2, FormulaText:=GESAMT3
SolverAdd CellRef:=CellRef4, Relation:=2, FormulaText:=GESAMT6
SolverAdd CellRef:=CellRef5, Relation:=2, FormulaText:=GESAMT4
SolverAdd CellRef:=CellRef6, Relation:=2, FormulaText:=GESAMT7
SolverAdd CellRef:=CellRef7, Relation:=2, FormulaText:=GESAMT5
SolverAdd CellRef:=CellRef8, Relation:=2, FormulaText:=GESAMT8
SolverAdd CellRef:=CellRef9, Relation:=2, FormulaText:=GESAMT9
SolverAdd CellRef:=CellRef10, Relation:=2, FormulaText:=GESAMT10
SolverAdd CellRef:=CellRef11, Relation:=2, FormulaText:=GESAMT11
SolverAdd CellRef:=CellRef12, Relation:=2, FormulaText:=GESAMT12
SolverAdd CellRef:=CellRef13, Relation:=2, FormulaText:=GESAMT13
SolverAdd CellRef:=CellRef14, Relation:=2, FormulaText:=GESAMT14
SolverAdd CellRef:=CellRef15, Relation:=2, FormulaText:=GESAMT15
SolverAdd CellRef:=CellRef16, Relation:=2, FormulaText:=GESAMT16
SolverAdd CellRef:=CellRef17, Relation:=2, FormulaText:=GESAMT17
SolverAdd CellRef:=CellRef18, Relation:=2, FormulaText:=GESAMT18
SolverAdd CellRef:=CellRef19, Relation:=2, FormulaText:=GESAMT19
SolverAdd CellRef:=CellRef20, Relation:=2, FormulaText:=GESAMT20
SolverAdd CellRef:=CellRef21, Relation:=2, FormulaText:=GESAMT21
SolverAdd CellRef:=CellRef22, Relation:=2, FormulaText:=GESAMT22
SolverAdd CellRef:=CellRef23, Relation:=2, FormulaText:=GESAMT23
SolverAdd CellRef:=CellRef24, Relation:=2, FormulaText:=GESAMT24
SolverAdd CellRef:=CellRef25, Relation:=2, FormulaText:=GESAMT25
SolverAdd CellRef:=CellRef26, Relation:=2, FormulaText:=GESAMT26
SolverAdd CellRef:=CellRef27, Relation:=2, FormulaText:=GESAMT27
SolverAdd CellRef:=CellRef28, Relation:=2, FormulaText:=GESAMT28
SolverAdd CellRef:=CellRef29, Relation:=2, FormulaText:=GESAMT29
SolverAdd CellRef:=CellRef30, Relation:=2, FormulaText:=GESAMT30
SolverAdd CellRef:=CellRef31, Relation:=2, FormulaText:=GESAMT31
SolverAdd CellRef:=CellRef32, Relation:=2, FormulaText:=GESAMT32
SolverAdd CellRef:=CellRef33, Relation:=2, FormulaText:=GESAMT33
SolverAdd CellRef:=CellRef34, Relation:=2, FormulaText:=GESAMT34
SolverAdd CellRef:=CellRef35, Relation:=2, FormulaText:=GESAMT35
SolverAdd CellRef:=CellRef36, Relation:=2, FormulaText:=GESAMT36
SolverAdd CellRef:=CellRef37, Relation:=2, FormulaText:=GESAMT37
SolverAdd CellRef:=CellRef38, Relation:=2, FormulaText:=GESAMT38
SolverSolve UserFinish:=True
Habe vorher im EXCEL 2007 gearbeitet, wo es prima funktioniert hat. Beim Versuch das Programm im EXCEL 2003 kommt dann nur folgende Fehlermeldung:
Solver: Ein unerwarteter interner Fehler ist aufgetreten
Verweise für Solver ist aktiviert. Mhhh... bin am Ende meiner kümmerlichen VBA Kenntnisse angelangt. Obwohl der Fehler auch auftritt wenn ich Solver normal im EXCEL starte. Habt ihr vielleicht ne zündende Idee wo mein Fehler ist??
Vielen Dank schonmal...
Grüße
Verena |