Herbers Excel-Forum - das Archiv
Formel statt fixer Wert per Makro anzeigen | Herbers Excel-Forum
- Formel statt fixer Wert per Makro anzeigen von meixner vom 08.01.2010 15:56:57
- AW: Formel statt fixer Wert per Makro anzeigen - von Daniel am 08.01.2010 16:03:30
- AW: Formel statt fixer Wert per Makro anzeigen - von Josef Ehrensberger am 08.01.2010 16:07:30
- AW: Formel statt fixer Wert per Makro anzeigen - von meixner am 12.01.2010 13:46:25
- AW: Formel statt fixer Wert per Makro anzeigen - von meixner am 12.01.2010 13:46:25
Betrifft: Formel statt fixer Wert per Makro anzeigen
von: meixner
Hallo zusammen,
habe ein Problem mit folgendem Makro:
Habe ein Tabelle mit 30 Aktien. Makro sucht eine bestimmte Aktie aus diesen 30 heraus z.B Zeile 30.
Ich möchte dann aus B30 die Formel an eine andere Stelle kopieren. In B30 steht =Data!$V37 aber ein Aktienpreis wird angezeigt, dass sich ständig ändert. Mein Problem ist, das ein fixer Wert kopiert Wert anstatt der Formel, die ein variabler Preis ausgibt.
TEIL DES MAKROS:
wsReweighting.Cells(zeilealteAktie, 11).Value = 0
wsReweighting.Cells(zielZeile, 7) = wsReweighting.Cells(zeilealteAktie, 12) * wsReweighting.Cells(zeilealteAktie, 13) / wsReweighting.Cells(zielZeile, 13) * (-1)
wsReweighting.Cells(zielZeile, 11).FormulaR1C1 = wsReweighting.Cells(zielZeile, 7)
Wenn ich das Makro auf abändere, funktioniert das nicht!
wsReweighting.Cells(zielZeile, 7) = wsReweighting.Cells(zeilealteAktie, 12).FORMULAR1C1 * wsReweighting.Cells(zeilealteAktie, 13).FORMULAR1C1 / wsReweighting.Cells(zielZeile, 13) * (-1)
wsReweighting.Cells(zielZeile, 11).FormulaR1C1 = wsReweighting.Cells(zielZeile, 7)
Vielen Dank für Tips.
Viele Grüße
Dani
Betrifft: AW: Formel statt fixer Wert per Makro anzeigen
von: Daniel
Hi
wenn du bei einem Befehl wie "Zelle1 = Zelle2" nicht angibst, dann verwendet Excel immer den angezeigten Zellwert und nicht die Formel.
wenn du die Formel übernehmen willst, musst du so vorgehen:
Zelle1.FormulaR1C1 = Zelle2.FormulaR1C1
oder so
Zelle2.Copy Zelle1
das kopiert aber die Formate mit.
Gruß, Daniel
Betrifft: AW: Formel statt fixer Wert per Makro anzeigen
von: Josef Ehrensberger
Hallo Dani,
ist nicht ganu klar was du willst.
Meinst du so?
With wsReweighting
.Cells(zeilealteAktie, 11).Value = 0
.Cells(zielZeile, 7).Formula = "=" & .Cells(zeilealteAktie, 12).Address & "*" _
& .Cells(zeilealteAktie, 13).Address & "/" & .Cells(zielZeile, 13).Address & _
"*-1"
.Cells(zielZeile, 11).Formula = .Cells(zielZeile, 7).Formula
End With
Betrifft: AW: Formel statt fixer Wert per Makro anzeigen
von: meixner
Geschrieben am: 12.01.2010 13:46:25
Hallo Josef,
vielen Dank. Genau das habe ich gemacht. Klappt einwandfrei!!!
Viele Grüße
Dani