Sub
checkQuartal()
Dim
endQuartal, endQ, startQuartal, startQ
Dim
checker
As
Boolean
checker =
False
Worksheets(
"Tabelle C"
).
Select
endQuartal = Range(
"A1"
)
startQuartal = Range(
"B1"
)
Dim
i
As
Integer
i = 5
Worksheets(
"Tabelle A"
).
Select
Do
While
Not
checker
If
Cells(5, i).Value = endQuartal
Then
endQ = i
ElseIf
Cells(5, i).Value = startQuartal
Then
startQ = i
checker =
True
End
If
i = i + 1
Loop
updateQuartal endQ, startQ,
"Tabelle B"
,
"Tabelle A"
, 1
End
Sub
Sub
updateQuartal(endQ, startQ, sheetName, referenceSheet, checker)
Worksheets(sheetName).
Select
If
checker = 1
Then
Range(
"H5"
).Formula =
"=AVERAGE("
& referenceSheet &
"!"
& Range(Cells(6, endQ), Cells(6, startQ)).Address(0, 0) &
")"
End
If
End
Sub