Bei folgenden Code bekomme ich die Fehlermeldung "Case ohne Select Case". Wo liegt mein Problem? Ich möchte halt jedes Mal, wenn der Case den Wert "2" annimmt, dass ein weiteres Kriterium dahingehend untersucht wird was der entsprechende Wert für "a", "b" oder "c" ist
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