Excel VBA Durchschnitt letzte 15 nicht leere Zellen - Excel-VBA, Excel-Formel, VBA, Excel

Ich verwende die unten stehende Formel, um in eine Zelle zu gelangenvon VBA und es funktioniert gut, bis ich eine Formel in den Zellen habe, die ich zähle. Wie kann ich mit dieser Formel die letzten 15 Zellen mitteln und leere Zellen ignorieren, die eine Formel enthalten?

=AVERAGE(OFFSET(AE8,COUNTA(AE:AE)-16,0,16,1))

Antworten:

Ich schreibe eine UDF und verweise sie in das Blatt.Dies zeigt eine Meldung an, wenn 15 Durchschnittswerte nicht gefunden werden können. Sie können einstellen, dass der Durchschnittswert aller ermittelten Zahlen bis zu 15 Werte oder dergleichen ist

Function Average15(rng As Range) "take entire column as argument
ColumnNumber = rng.Column
rownumber = Cells(65536, ColumnNumber).End(xlUp).Row
If rownumber < 15 Then
Average15 = "Not Enough Cells"
Exit Function
End If
Counter = 0
While Counter < 15
If rownumber = 1 Then "assumes no header row(s), change this to the first row with data in it
Average15 = "Not enough values"
Exit Function
End If
If Cells(rownumber, ColumnNumber).Value <> "" Then
Counter = Counter + 1
Totals = Totals + Cells(rownumber, ColumnNumber).Value
End If
rownumber = rownumber - 1
Wend
Average15 = Totals / 15
End Function

Im Blatt wäre die Formel

=AVERAGE15(A:A)