average over different cells and not ranges

[travelkid]

I would like to average over cells in a worksheet over vba userform. I would like to use WorksheetFunction.AverageIf for all values above 0 and also ignore empty cells. The cells are not next to each other, which is why I would not use range. Can someone give me a suggestion?

Best

[gjcase]

You could use a "helper range" which points to each of the other ranges, then use the AverageIf on that. i.e., if your ranges are A1:A3 and P43, you could set A10 as =A1, A11 as =A2, A12 as = A3, and A13 as = P43, then use the AverageIf on A10:A13.

[travelkid]

OKey, not sure if I get this right... I defined my values but not sure how to use the AverageIf-Funciton afterwards... Problem is that this is a database, where values are written under each other every time I make a new entry.
--> My Code looks like that now:

A1 = CDbl(ActiveSheet.Cells(intErsteLeereZeile, 37).Value)

A2 = CDbl(ActiveSheet.Cells(intErsteLeereZeile, 41).Value)

A3 = CDbl(ActiveSheet.Cells(intErsteLeereZeile, 45).Value)


ActiveSheet.Cells(intErsteLeereZeile, 55).Value = WorksheetFunction.AverageIf(A1,A2,A3,"">0") ->> this is obvioulsy false, but you get the idea what I want...

[gjcase]

You have an extra double quote in the AverageIf formula, otherwise that should work.

[travelkid]

tried again, didnt work...