Public
Sub
Durchschnitt()
Dim
i
As
Integer
Dim
j
As
Integer
While
Range(
"B2"
).Offset(i, 0).value <>
""
i = i + 1
Wend
While
Range(
"B1"
).Offset(0, j).value <>
""
j = j + 1
Wend
Dim
a
As
Integer
Dim
b
As
Integer
Dim
bOffset
As
Integer
, strOffset
As
String
a = 0
b = 0
While
a <= i
While
b <= j
If
Range(
"B2"
).Offset(a, b).value =
""
Then
b = b + 1
bOffset = bOffset + 1
Else
strOffset = IIf(bOffset = 0,
""
,
"["
&
CStr
(bOffset) &
"]"
)
Range(
"B6"
).Offset(a, b - bOffset).FormulaR1C1 =
"=SUM(R2C2:R[-4]C"
& strOffset &
")/COUNT(R2C2:R[-4]C"
& strOffset &
")"
b = b + 1
End
If
Wend
a = a + 1
Wend
End
Sub