Neuberechnung einer UDF
25.03.2018 13:30:55
Frank
ich habe bereits gegoogelt "VBA Neuberechnung erzwingen". Ich möchte die Summe von den sichtbaren Spalten berechnen. Die in Excel zur Verfügung gestellte Funktion TEILERGEBNIS funktioniert leider nur für Zeilen. Darüber hinaus gibt es den Befehl Application.Volatile. Nun habe ich einen kleinen Code von Hajo gefunden und den Code für Spalten umgeschrieben. Wenn ich eine Zeile ausblende, dann wird die UDF SummeVisibleZeile angestoßen. Blende ich eine Spalte aus passiert leider nichts. Weiß jemand wie man dieses Problem beheben kann?
Function SummeVisibleZeile(Bereich As Range)
'Summe bei eingeblendeten Zeilen
Dim Zelle
Application.Volatile
For Each Zelle In Bereich
If Zelle.RowHeight > 0 Then
SummeVisibleZeile = SummeVisibleZeile + Zelle
End If
Next
End Function
Function SummeVisibleSpalte(Bereich As Range)
'Summe bei eingeblendeten Spalten
Dim Zelle
Application.Volatile
For Each Zelle In Bereich
If Zelle.ColumnWidth > 0 Then
SummeVisibleSpalte = SummeVisibleSpalte + Zelle
End If
Next
CalculateFull
End Function
Vielen Dank und viele Grüße
Frank