Hilfe bei Mittelwert-Funktion...
18.01.2005 08:21:47
Marco1005
habe folgende Summen-Funktion:
Function SummeSichtbar(b As Range)
Dim z As Range
Dim t
t = 0
For Each z In b
If Not z.EntireColumn.Hidden Then
t = t + z.Value
End If
Next z
SummeSichtbar = t
End Function
Ich möchte diese Funktion so ändern, dass sie mir den Mittelwert errechnet. Ich brauche die Funktion, weil ich nur Spalten berevhnen will, die eingeblendet sind.
Kann mir bitte Jemand helfen?
Vielen Dank!
Gruß
Marco