select case
17.02.2014 10:16:34
Frank
ich habe folgenden Code für eine Funktion geschrieben:
Function Alpha(eco, ecu, ec2, n) As Double
'Fall 1
If ecu >= 0 And eco >= 0 Then
Alpha = 1
End If
'Fall 2
If ecu >= 0 And 0 > eco And eco >= ec2 Then
Alpha = 2
End If
'Fall 3
If ecu >= 0 And ec2 > eco Then
Alpha = 3
End If
'Fall 4
If 0 > ecu And ecu > eco And eco >= ec2 Then
Alpha = 4
End If
'Fall 5
If 0 > ecu And ecu > ec2 And ec2 > eco Then
Alpha = 5
End If
'Fall 6
If 0 > ecu And ec2 >= ecu And ec2 >= eco Then
Alpha = 6
End If
End Function
Ich würde die ganze Function in select case ändern. Ich habe mir das Beispiel in der Hilfe angesehen. Nur ist das leider nicht 1 zu 1 übertragbar, da es bei mir ja von verschiedenen Faktoren abhängt. Könnte mir bitte jemand sagen wie man das in meinem Fall auf die Select Case Methode umändert?Vielen Dank und viele Grüße
Frank