Neuberechnung anstoßen
14.11.2015 18:28:47
Burghard
ich habe diese Funktion laufen:
Function NettoSumme(rngAll As Object)
Application.ScreenUpdating = False
Application.Volatile
Dim rngAct As Range
Dim dValue As Double
For Each rngAct In rngAll.Cells
If Rows(rngAct.Row).Hidden = False Then
dValue = dValue + rngAct.Value
End If
Next rngAct
NettoSumme = dValue
Application.ScreenUpdating = True
End Function
Die Berechnung rufe ich in L1 mit =NettoSumme($K$2:$K$200) auf.Ich würde die Neuberechnung gerne anstoßen, wenn ich manuell eine Zeile ausblende. Geht das?
Grüße Burghard