Antwort
von
nach 40 Minuten
0
hilfreich
Re: Mindestwert benutzen
Hallo helperr,
hier eine verschachtelte IF-ELSE Abfrage sowie eine MAXIMUM-Abfrage als aufrufbare Funktion, die das gewünschte tun.
P.S.: In Deiner Formel multiplizierst Du einmal mit 2 und multiplizierst anschließend mit 0.5, d.h. teilst wieder durch 2. Das könnte man also mathematisch weglassen.
Gruß
Sven
Public Function Preis_berechnen(Lange, Breite, Staerke)
Dim Preis
If Laenge < 200 Then
If Breite < 200 Then
Preis = (200+200) * 2 * Staerke * 0.5 / 1000 'Länge & Breite < 200
Else
Preis = (200 + Breite) * 2 * Staerke * 0.5 / 1000 'Länge < 200 & Breite >= 200
End If
Else
If Breite < 200 Then
Preis = (Laenge + 200) * 2 * Staerke * 0.5 / 1000 'Länge >= 200 & Breite < 200
Else
Preis = (Laenge + Breite) * 2 * Staerke * 0.5 / 1000 'Länge & Breite > 200
End If
End If
Preis_berechnen = Preis
End Function
Alternativ kannst Du auch mit der MAXIMUM-Funktion wie folgt arbeiten:
Public Function Preis_berechnen(Lange, Breite, Staerke)
Dim Preis
Preis = (WorksheetFunction.Max(Laenge, 200) + WorksheetFunction.Max(Breite, 200)) * 2 * Staerke * 0.5 / 1000
Preis_berechnen = Preis
End Function