Mehrere Kriterien bei Select Case?
14.10.2005 07:31:56
köbi
hab gestern schon die gleiche frage gestellt, bin aber zu doof um mit den antworten eine lösung zu finden.
darum noch einmal - wie mach ich's in folgendem code beide kriterien abzufragen. anders ausgedrückt eine wenn abfrage kann ich verschachteln, geht das evtl. auch mit select case?
Option Explicit
Function Ventilp(b_art)
Dim b_ven As Integer
Select Case b_art
Case 2 To 4
If b_ven = 1 Then Ventilp = "2%" 'W&H
Case 14 To 16
If b_ven = 1 Then Ventilp = "4%" 'STA
Case 30 To 32
If b_ven = 1 Then Ventilp = "3%" 'BFB
Case 38 To 40
If b_ven = 1 Then Ventilp = "6%" 'SFB
Case Else
Ventilp = "gibt's nicht"
End Select
End Function
Arbeitsmappe:
https://www.herber.de/bbs/user/27480.xls
bitte lösung nach möglichkeit direkt auf code angewandt.
many thanks and have a nice day
köbi