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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen