Function Sum_Visible_Cells
Kai
ich benutze folgenden Code:
Function Sum_Visible_Cells(Cells_To_Sum As Object)
'Funktion, damit nur eingeblendete Zellen berechnet werden
Application.Volatile
For Each Cell In Cells_To_Sum
If Cell.Rows.Hidden = False Then
If Cell.Columns.Hidden = False Then
If IsNumeric(Cell.Value) Then
total = total + Cell.Value
End If
End If
End If
Next
Sum_Visible_Cells = total
End Function
Und benutze ihn dann im Worksheet so:
=Sum_Visible_Cells(:)
In Office 2003 funktioniert er bei mir wunderbar. Die Datei wird aber auch auf anderen Rechner benutzt und dann tritt bei einigen der Fehler Name auf. Ist der Code mit manchen Excelversionen nicht kompatibel?Vielen Dank und viele Grüße
Kai