Public
Function
Summieren11()
As
Double
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
Spalte = ActiveCell.Column
For
Zeile = 3
To
27
Step
6
If
Cells(Zeile, ActiveCell.Column).Value = 11
Then
Summe11 = Summe11 + Cells(Zeile + 3, ActiveCell.Column).Value
End
If
Next
Zeile
Summieren11 = Summe11
End
With
End
Function
Public
Function
Summieren13()
As
Double
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
Spalte = ActiveCell.Column
For
Zeile = 3
To
27
Step
6
If
Cells(Zeile, ActiveCell.Column).Value = 13
Then
Summe13 = Summe13 + Cells(Zeile + 3, ActiveCell.Column).Value
End
If
Next
Zeile
Summieren13 = Summe13
End
With
End
Function