Office: Zellbezeichnung in Zelle ausgeben für Solver berechnung

Hallo Forum,

um die Solver Funktion im vorhandenen Makro nutzen zu können, muss ich vorher Formeln in die Zellen eingeben.

Mein Code

Code:

        Cells(1, j_column_pr + 4).Value = "Mittelwert"
        Cells(2, j_column_pr + 4).Value = a(1)
        Cells(1, j_column_pr + 5).Value = "Amplitude"
        Cells(2, j_column_pr + 5).Value = a(2)
        Cells(1, j_column_pr + 6).Value = "Phase"
        Cells(2, j_column_pr + 6).Value = a(3)
        
        Cells(i, j_column_pr + 2).Formula = "sum(a(1)+a(2)+a(3))"

Die Formel ist etwas komplizierter, soll nur als beispiel dienen.

Mein Ziel ist es nun, dass für a(x) die jeweilige Zellbezeichnung ausgegeben wird.
z.B H2 für a(1); I2 für a(2); J2 für a(3)
damit ich im nächsten Schritt den Solver anhand dieser Formeln nutzen kann.


Vielen Dank
homax

 

Hallo!

Die Formel kannst du dir aus den Strings zusammenbauen:

Cells(i, j_column_pr + 2).Formula = "=" & Cells(2, j_column_pr + 4).Address & "+" & Cells(2, j_column_pr + 5).Address & "+" & Cells(2, j_column_pr + 6).Address

 

Das war genau der Befehl den ich gesucht habe:-)

Vielen Dank

Allerdings habe ich jetzt immer das Problem das z.B. bei

Code:

Cells(2, j_column_pr + 7).Formula = "=SUMME(" & Cells(nstart, j_column_pr + 7).Address & ":" & Cells(imax + nstart, j_column_pr + 7).Address & ")"

in der Excel Zelle zwar die Formel "=SUMME($W$3:$W$33)" steht, jedoch nicht berechnet wird bzw. nicht als Formel erkannt wird. Erst nach einer Änderung z.B. 33 neu eintippen und Enter wird auch gerechnet. Und das unabhängig von der Zellformatierung.
Wieso? :-(

 

Hat sich erledigt mit sum klappts.

Danke

Code:

Cells(2, j_column_pr + 7).Formula = "=SUM(" & Cells(nstart, j_column_pr + 7).Address & ":" & Cells(imax + nstart, j_column_pr + 7).Address & ")"

:-)

 

Hallo!

Wenn du deutsche Funktionsnamen verwenden möchtest, dann nimm "FormulaLocal" statt "Formula".