Option Explicit
Function SUM_EG13Monatlich(Bereich As Range)
Dim i%, j%, Zelle As Range
For Each Zelle In Bereich
If Zelle.Value = 13 Then
i = Zelle.Row + 3
j = Zelle.Column
SUM_EG13Monatlich = SUM_EG13Monatlich + Cells(i, j).Value
End If
Next Zelle
End Function
Function SUM_EG11Monatlich(Bereich As Range)
Dim i%, j%, Zelle As Range
For Each Zelle In Bereich
If Zelle.Value = 11 Then
i = Zelle.Row + 3
j = Zelle.Column
SUM_EG11Monatlich = SUM_EG11Monatlich + Cells(i, j).Value
End If
Next Zelle
End Function
Function SUM_FreistellungMonatlich(Bereich As Range)
Dim i%, j%, Zelle As Range
For Each Zelle In Bereich
If Zelle.Value = "Freistellung" Then
i = Zelle.Row + 2
j = Zelle.Column
SUM_FreistellungMonatlich = SUM_FreistellungMonatlich + Cells(i, j).Value
End If
Next Zelle
End Function
Function SUM_HiwiMonatlich(Bereich As Range)
Dim i%, j%, Zelle As Range
For Each Zelle In Bereich
If Zelle.Value Like "*HK" Then
i = Zelle.Row + 2
j = Zelle.Column
SUM_HiwiMonatlich = SUM_HiwiMonatlich + Cells(i, j).Value
End If
Next Zelle
End Function