Case ohne Select Case
17.03.2021 17:11:43
Boris
If InStr(WS_Source.Cells(PN_out_row, 2).Value, Appl) = 0 Then
MsgBox ("Outgoing Application Code does not fit with Outgoing P/N")
Else
Select Case a
Case 1
If InStr(WS_Sub1.Cells(PN_Sub1_row, 2).Value, Appl) = 0 Then
MsgBox ("Outgoing Application Code does not fit P/N of " & Sub1)
Case 2
Select Case b
Case 1
If InStr(WS_Sub2.Cells(PN_Sub2_row, 2).Value, Appl) = 0 Then
MsgBox ("Outgoing Application Code does not fit P/N of " & Sub2)
Case 2
Select Case c
Case 1
If InStr(WS_Sub2.Cells(PN_Sub3_row, 2).Value, Appl) = 0 Then
MsgBox ("Outgoing Application Code does not fit P/N of " & Sub3)
Case 2
End Select
End Select
End Select
Exit Sub
End If