Sub
Schaltfläche1_Klicken()
Dim
wb
As
Workbook, wq
As
Object
Dim
ws
As
Worksheet, datDatum
Dim
cell
As
Range
Dim
c
As
Long
, r
As
Long
, rng
As
Range
With
Worksheets(
"Tabelle1"
)
For
c = 3
To
5
For
r = 1
To
5
If
.Cells(r, c).DisplayFormat.Interior.Color = vbRed
Then
If
rng
Is
Nothing
Then
Set
rng = .Cells(r, c)
Else
Set
rng = Union(rng, .Cells(r, c))
End
If
End
If
Next
r
.Cells(8, c).Formula =
"=average("
& rng.Address(1, 1) &
")"
Next
c
End
With
End
Sub