Sub
Berechnungfür11()
Dim
Summe13
As
Double
, Summe11
As
Double
Dim
Zeile
As
Long
Dim
Spalte
As
Long
Dim
SpalteMax
As
Long
With
Tabelle1
SpalteMax = .UsedRange.Columns.Count
For
Spalte = 2
To
SpalteMax
For
Zeile = 3
To
27
Step
6
If
Cells(Zeile, Spalte).Value = 11
Then
Summe13 = Summe13 + Cells(Zeile + 3, Spalte).Value
Else
Summe11 = Summe11 + Cells(Zeile + 3, Spalte).Value
End
If
Next
Zeile
Cells(36, Spalte).Value = Summe11
Cells(37, Spalte).Value = Summe13
Summe11 = 0
Summe13 = 0
Next
Spalte
End
With
End
Sub