title image


Smiley Re: Wenn Dann
Hallo,



statt mit langwieriger wenn- Abfrage wäre ein SVERWEIS möglich, ich hab aber mal eine UDF bevorzugt. Der Code kommt in ein Standardmodul.

Die Funktion findest du im Funktionsassistenten unter benutzerdefiniert.

Kannst du verwenden wie eine normale Funktion:



Function P_Note(Zellwert As Single) As Variant

Select Case Zellwert

Case 98 To 100: P_Note = 0.66

Case 95 To 98: P_Note = 1

Case 90 To 95: P_Note = 1.33

Case 85 To 90: P_Note = 1.66

Case 80 To 85: P_Note = 2

Case 75 To 80: P_Note = 2.33

Case 70 To 75: P_Note = 2.66

Case 65 To 70: P_Note = 3

Case 60 To 65: P_Note = 3.33

Case 55 To 60: P_Note = 3.66

Case 50 To 55: P_Note = 4

Case 45 To 50: P_Note = 4.33

Case 40 To 45: P_Note = 4.66

Case 35 To 40: P_Note = 5

Case 30 To 35: P_Note = 5.33

Case 25 To 30: P_Note = 5.66

Case 0 To 25: P_Note = 6

Case Else:: P_Note = "ungültiger Wert"

End Select

End Function



Gruß Manu

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: