Microsoft Excel

Herbers Excel/VBA-Archiv

Formel

Betrifft: Formel von: Hugo
Geschrieben am: 28.09.2014 11:22:23

Hallo
Habe folgenden Code

letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Dieser Code berechnet korrekt:

Cells(letztezeile, 4) = Cells(letztezeile, 3) - Cells(letztezeile, 2)

Es soll aber nicht berechnet werden sondern die Formel eingesetzt werden

Cells(letztezeile, 4) = FormulaLocal = "=Cells(letztezeile, 3)-Cells(letztezeile, 2)"
aber leider klappt es so nicht gibt nur den Wert FALSCH aus

Besten Dank für Eure Hilfe

Gruss Hugo

  

Betrifft: AW: Formel von: Crazy Tom
Geschrieben am: 28.09.2014 11:29:19

Hallo Hugo

probier das mal

Option Explicit

Sub test()
    Dim letztezeile As Long
    letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    Cells(letztezeile, 4).FormulaR1C1 = "=RC[-2]-RC[-1]"
End Sub

MfG Tom


  

Betrifft: AW: Formel von: Crazy Tom
Geschrieben am: 28.09.2014 11:31:55

Hallo nochmal

natürlich andersrum

Option Explicit

Sub test()
    Dim letztezeile As Long
    letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    Cells(letztezeile, 4).FormulaR1C1 = "=RC[-1]-RC[-2]"
End Sub

MfG Tom


  

Betrifft: AW: Formel von: Hugo
Geschrieben am: 28.09.2014 11:37:15

Hoi Tom

Eigentlich hatte ich das auch versucht ging aber nicht
Hatte wohl irgend einen Fehler drin

Aber jetzt klappt's

Besten Dank für Deine schnelle Hilfe

Gruss Hugo


 

Beiträge aus den Excel-Beispielen zum Thema "Formel "