Microsoft Excel

Herbers Excel/VBA-Archiv

Formel statt fixer Wert per Makro anzeigen | Herbers Excel-Forum


Betrifft: Formel statt fixer Wert per Makro anzeigen von: meixner
Geschrieben am: 08.01.2010 15:56:57

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
Geschrieben am: 08.01.2010 16:03:30

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
Geschrieben am: 08.01.2010 16:07:30

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



Gruß Sepp



  

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


Beiträge aus den Excel-Beispielen zum Thema "Formel statt fixer Wert per Makro anzeigen"