VBA Makro - Formel in Zelle schreiben

Hallo Frank,

With ActiveSheet

    LRow = .Cells(.Rows.Count, "R").End(xlUp).Row

    .Range("R1").FormulaArray = "=AVERAGE(IF(P2:P" & LRow & "="""",R2:R" & LRow & "))"

End With

macht doch genau das Gewünschte. LRow ist die letzte Zeile.

Du kannst auch direkt den Wert einschreiben lassen:

Dim LRow As Long

With ActiveSheet

    LRow = .Cells(.Rows.Count, "R").End(xlUp).Row

    .Range("R1") = Evaluate("=AVERAGE(IF(P2:P" & LRow & "="""",R2:R" & LRow & "))")

End With

Claus

Hallo Claus und Danke

Funktioniert

Aber ich hatte verschwiegen, dass sich das Tabellenende täglich verändert und ich den zweiten Wert täglich manuell anpasse.

Habe jetzt mal das versucht

ENDE1 = Cells(Rows.Count, 18).End(xlUp).Row 'letzte benutzte Zelle in Spalte 1 finden - With ActiveSheet

With Sheets("Gebraucht")

.Range("R1").FormulaArray = "=AVERAGE(IF(P2:ENDE1="""",R2:ENDE1))"

End With

und es steht auch in R1 die Formel

{=MITTELWERT(WENN(P2:ENDE1="";R2:ENDE1))} und das ist ja auch richtig so - denn Deine Lösung funktioniert halt.

Aber gibt es auch für die Erweiterung meines geschilderten Problems eine Lösung?

Gruß --> Frank

Hallo,

probiere mal:

With Sheets("Gebraucht")

.Range("R1").FormulaArray = "=AVERAGE(IF(P2156="""",R2:R156))"

End With

Claus

Hallo Frank,

du kannst auch für beide Bereiche einen dynamischen Bereichsnamen erstellen und diesen in der Formel verwenden.

Schau dazu mal hier:

https://1drv.ms/x/s!AqMiGBK2qniTgYk-FZ4JRSwqJcYm9g

Claus

Sorry hatte die Antwort mit dem Link zu einer Tabelle von Dir probiert und die eigentliche Lösung überlesen.

Und da sieht doch der Samstag gleich noch mal so schön aus trotz Nebel.

Lösung ist Perfekt und ich bin mit meinen Kenntnissen und meinem Tabellenmurks wieder ein Stück weiter.

Vielen Dank

Frank