an ede wegen select case
14.10.2005 10:01:25
köbi
hab da noch ne Frage
wenn ich noch mehrere abfragen habe so z.B. b_grp und b_ausg die zusätzlich noch abgefragt werden müssen, geht das?
Function Ventilp(b_art, b_ven)
If b_ven = 1 Then
Select Case b_art
Case 2 To 4
Ventilp = "2%" 'W&H
Case 14 To 16
Ventilp = "4%" 'STA
Case 30 To 32
Ventilp = "3%" 'BFB
Case 38 To 40
Ventilp = "6%" 'SFB
Case Else
Ventilp = "gibt's nicht"
End Select
End If
End Function
Grüessli
köbi
Anzeige