Public Function SummeJan(Suchbegriff As Long)
Dim wks As Worksheet, Bereich As Range, zae1 As Long
For Each wks In ThisWorkbook.Worksheets
Set Bereich = wks.Range("A3:A100")
If wks.Name "P&L Polygon" Then
For zae1 = 1 To Bereich.Rows.Count
If Bereich(zae1, 1) = Suchbegriff Then
SummeJan = SummeJan + Bereich(zae1, 4).Offset(, 1).Value
End If
Next zae1
End If
Next wks
End Function
Public Function SummeFeb(Suchbegriff As Long)
Dim wks As Worksheet, Bereich As Range, zae1 As Long
For Each wks In ThisWorkbook.Worksheets
Set Bereich = wks.Range("A3:A100")
If wks.Name "P&L Polygon" Then
For zae1 = 1 To Bereich.Rows.Count
If Bereich(zae1, 1) = Suchbegriff Then
SummeFeb = SummeFeb + Bereich(zae1, 5).Offset(, 1).Value
End If
Next zae1
End If
Next wks
End Function
Public Function SummeMär(Suchbegriff As Long)
Dim wks As Worksheet, Bereich As Range, zae1 As Long
For Each wks In ThisWorkbook.Worksheets
Set Bereich = wks.Range("A3:A100")
If wks.Name "P&L Polygon" Then
For zae1 = 1 To Bereich.Rows.Count
If Bereich(zae1, 1) = Suchbegriff Then
SummeMär = SummeMär + Bereich(zae1, 6).Offset(, 1).Value
End If
Next zae1
End If
Next wks
End Function
Public Function SummeApr(Suchbegriff As Long)
Dim wks As Worksheet, Bereich As Range, zae1 As Long
For Each wks In ThisWorkbook.Worksheets
Set Bereich = wks.Range("A3:A100")
If wks.Name "P&L Polygon" Then
For zae1 = 1 To Bereich.Rows.Count
If Bereich(zae1, 1) = Suchbegriff Then
SummeApr = SummeApr + Bereich(zae1, 7).Offset(, 1).Value
End If
Next zae1
End If
Next wks
End Function
Public Function SummeMai(Suchbegriff As Long)
Dim wks As Worksheet, Bereich As Range, zae1 As Long
For Each wks In ThisWorkbook.Worksheets
Set Bereich = wks.Range("A3:A100")
If wks.Name "P&L Polygon" Then
For zae1 = 1 To Bereich.Rows.Count
If Bereich(zae1, 1) = Suchbegriff Then
SummeMai = SummeMai + Bereich(zae1, 8).Offset(, 1).Value
End If
Next zae1
End If
Next wks
End Function
Public Function SummeJun(Suchbegriff As Long)
Dim wks As Worksheet, Bereich As Range, zae1 As Long
For Each wks In ThisWorkbook.Worksheets
Set Bereich = wks.Range("A3:A100")
If wks.Name "P&L Polygon" Then
For zae1 = 1 To Bereich.Rows.Count
If Bereich(zae1, 1) = Suchbegriff Then
SummeJun = SummeJun + Bereich(zae1, 9).Offset(, 1).Value
End If
Next zae1
End If
Next wks
End Function
Public Function SummeJul(Suchbegriff As Long)
Dim wks As Worksheet, Bereich As Range, zae1 As Long
For Each wks In ThisWorkbook.Worksheets
Set Bereich = wks.Range("A3:A100")
If wks.Name "P&L Polygon" Then
For zae1 = 1 To Bereich.Rows.Count
If Bereich(zae1, 1) = Suchbegriff Then
SummeJul = SummeJul + Bereich(zae1, 10).Offset(, 1).Value
End If
Next zae1
End If
Next wks
End Function
Public Function SummeAug(Suchbegriff As Long)
Dim wks As Worksheet, Bereich As Range, zae1 As Long
For Each wks In ThisWorkbook.Worksheets
Set Bereich = wks.Range("A3:A100")
If wks.Name "P&L Polygon" Then
For zae1 = 1 To Bereich.Rows.Count
If Bereich(zae1, 1) = Suchbegriff Then
SummeAug = SummeAug + Bereich(zae1, 11).Offset(, 1).Value
End If
Next zae1
End If
Next wks
End Function
Public Function SummeSep(Suchbegriff As Long)
Dim wks As Worksheet, Bereich As Range, zae1 As Long
For Each wks In ThisWorkbook.Worksheets
Set Bereich = wks.Range("A3:A100")
If wks.Name "P&L Polygon" Then
For zae1 = 1 To Bereich.Rows.Count
If Bereich(zae1, 1) = Suchbegriff Then
SummeSep = SummeSep + Bereich(zae1, 12).Offset(, 1).Value
End If
Next zae1
End If
Next wks
End Function
Public Function SummeOkt(Suchbegriff As Long)
Dim wks As Worksheet, Bereich As Range, zae1 As Long
For Each wks In ThisWorkbook.Worksheets
Set Bereich = wks.Range("A3:A100")
If wks.Name "P&L Polygon" Then
For zae1 = 1 To Bereich.Rows.Count
If Bereich(zae1, 1) = Suchbegriff Then
SummeOkt = SummeOkt + Bereich(zae1, 13).Offset(, 1).Value
End If
Next zae1
End If
Next wks
End Function
Public Function SummeNov(Suchbegriff As Long)
Dim wks As Worksheet, Bereich As Range, zae1 As Long
For Each wks In ThisWorkbook.Worksheets
Set Bereich = wks.Range("A3:A100")
If wks.Name "P&L Polygon" Then
For zae1 = 1 To Bereich.Rows.Count
If Bereich(zae1, 1) = Suchbegriff Then
SummeNov = SummeNov + Bereich(zae1, 14).Offset(, 1).Value
End If
Next zae1
End If
Next wks
End Function
Public Function SummeDez(Suchbegriff As Long)
Dim wks As Worksheet, Bereich As Range, zae1 As Long
For Each wks In ThisWorkbook.Worksheets
Set Bereich = wks.Range("A3:A100")
If wks.Name "P&L Polygon" Then
For zae1 = 1 To Bereich.Rows.Count
If Bereich(zae1, 1) = Suchbegriff Then
SummeDez = SummeDez + Bereich(zae1, 15).Offset(, 1).Value
End If
Next zae1
End If
Next wks
End Function