Private Function SummeEingeblendet(target As Range) As Double
Application.Volatile
Dim rng As Range
For Each rng In target.Rows
If Not (rng.Hidden) Then
SummeEingeblendet = SummeEingeblendet + rng.Value
End If
Next
End Function
Function FindeHidden(target) As Double
Application.Volatile
Dim rng As Range
For Each rng In target.Rows
If Not (rng.Hidden) Then
End If
Next
End Function
Private Function SummeEingeblendet(target As Range) As Double
Application.Volatile
Dim rng As Range
For Each rng In target.Rows
If Not (rng.Hidden) Then
SummeEingeblendet = SummeEingeblendet + rng.Value
End If
Next
End Function
Function SummeX(SumBereich As Range, SuchBereich As Range, Suchbegriff As String)
Dim C As Range
For Each C In SumBereich.Cells
If Cells(C.Row, SuchBereich.Column) = Suchbegriff _
And Rows(C.Row).Hidden = False Then
SummeX = SummeX + C.Value
End If
Next C
End Function