VBA: Tabellenblattfunktion mit 3 Range-Objekten

Computer: Software & Programmierung Visual Basic
#1

Hallo,
ich habe folgendes Problem:

möchte in einer benutzerdefinierten Tabellenblatt-Funktion 3 Bereiche übergeben, die ich dann in der Funktion mit Werten fülle.
Leider klappt das nicht. Folgender Code:

Function berechneMittelwert(bereich As Range, phase As String, ByRef zelle_untere_Grenze As Range, ByRef zelle_obere_Grenze As Range)
zelle_untere_Grenze.Value = mittelwert - standardabweichung
zelle_obere_Grenze.Value = mittelwert + standardabweichung
berechneMittelwert = mittelwert
End Function

die Funktion stürzt bei der roten Zeile ab.
vielleicht kann mir jemand helfen.

gruß

#2

Hallo pman.

> Function berechneMittelwert(bereich As Range, phase As String, ByRef zelle\_untere\_Grenze As Range, ByRef zelle\_obere\_Grenze As Range)  
> zelle\_untere\_Grenze.Value = mittelwert - standardabweichung  
> zelle\_obere\_Grenze.Value = mittelwert + standardabweichung  
> berechneMittelwert = mittelwert  
> End Function

„bereich“ scheint gar nicht verwendet zu werden, genau wie „phase“.
Ist „mittelwert“ eine öffentliche Variable?
Ist „standardabweichung“ eine öffentliche Variable?
Hast Du die Funktion schon einmal ohne „ByRef“ versucht?

Viele Grüße
Carsten