| Sub FormelInAktiveZelleEinfügen() 'R1C1 = Zelle A1 'R[-2]C[-1] = eine Spalte nach links, zwei Zeilen nach oben ActiveCell.FormulaR1C1 = "=MIN(R1C1:R[-2]C[-1])" End Sub Gruß, Tobi http://vba-blog.de/
AW: Formel in Zelle per VBA einfügen
Werner
Hallo Tobi, danke für den Tipp. Ich habe noch etwas herumprobiert es geht auch so:
AW: Formel in Zelle per VBA einfügen
Erich
Hallo Werner, wozu soll "Offset(0, 0)" gut sein? Da könntest du auch noch ActiveCell.Offset(0, 0).Resize(1, 1).... schreiben. Kürzer wäre Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Formel in Zelle per VBA einfügen
Werner
Hallo Erich, vielen Dank für Deinen Tipp, ich werden mein Makro dahingehend ändern. Gruß Werner. |
strLetzteZeile = ActiveCell.Row - 2
strRange = "$J$1:$J$" & strLetzteZeile
ActiveCell.Offset(0, 0).FormulaLocal = "=Mittelwert(" & strRange & ")"
ActiveCell.Offset(0, 0).NumberFormat = "h:mm:ss;@"
Gruß Werner.
strRange = "$J$1:$J$" & ActiveCell.Row - 2
With ActiveCell
.FormulaLocal = "=Mittelwert(" & strRange & ")"
.NumberFormat = "h:mm:ss;@"
End With
' oder noch kürzer:
With ActiveCell
.FormulaLocal = "=MITTELWERT($J$1:$J$" & ActiveCell.Row - 2 & ")"
.NumberFormat = "h:mm:ss;@"
End With
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort