ich habe ein kleines Prob und hoffe Ihr könnt mir helfen ...
Ich habe folgenden Code:
Function XXX (Gewicht)
Dim a As Double, b As Integer
a = Fix(Gewicht / 100) + 1
b = a * 100
Select Case Gewicht
Case 1 To 500 = 15.3
Case 501 To 1000 = 12.8 * a
Case 1001 To 2000 = 11.5 * a
Case 2001 To 3000 = 10 * a
Case 3001 To 3500 = 8.2 * a
Case 3501 To 4000 = 230
Case 4001 To 5000 = 230
Case 5001 To 5500 = 250
Case 5501 To 6000 = 260
Case 6001 To 7000 = 260
Case 7001 To 9000 = 275
End Function
Ich würde jetzt gerne die 15.3; 12.8; 11.5 usw. einen "Namen" zuweisen, auf den ich mich für eine If...Then...Else-Anweisung beziehen kann.
Sinn des Ganzen ist folgender:
In der Zeile mit den 8.20 * a soll eigentlich noch folgendes passieren ...
Wenn das Ergebnis kleiner 212.20 soll das Ergbnis geschrieben werden, wenn's größer ist 212.20 ohne weitere Argumente ..
Jemand eine Idee, wie ich sowas umsetzen kann? Die If-Anweisung dahinter streikt bei mir :o(
Jessie
P.S. Da ich keine 2 Select case Felder habe, weiß ich auch gar nicht, ob das AddIn so funktionieren würde .. Normalerweise heißt es ja
Function XXX (Gewicht, Entfernung) - als Beispiel ...