2x dezelfde case naam met afwijkende it statement

[crappy]

Heb een probleem met mijn case toewijzing.
Heb 2 case namen met verschillende inhoud ivm een afwijkende if statement.

Toch blijft Excel de eerste case met de naam die hij tegen komt gebruiken en wordt er niet naar de andere case met een andere if statement gekeken.

Hoe kan ik dat ondervangen/oplossen

Select Case Target.Address
Case "$C$8"
Select Case Target.Value
Case "maak selectie"
Range("11:18,21:21,23:34,38:38,40:40,44:44,48:52").Rows.Hidden = True
Case "PO nummer via Ariba"
Range("11:11,13:13,16:17,21:21,27:29").Rows.Hidden = True
Range("12:12,18:18,23:26,38:38,40:40,44:44").Rows.Hidden = False
Case "SAP code"
Range("11:12,16:18,21:21,23:29,38:38,40:40,44:44").Rows.Hidden = False
Range("13:13").Rows.Hidden = True
End Select

Case "$C$12"
Select Case Target.Value
Case "Maak selectie"
If Range("C8").Value = "PO nummer via Ariba" Then
Range("13:15,30:34,48:52").Rows.Hidden = True
End If

Case "Maak selectie"
If Range("C8").Value = "SAP code" Then
Range("13:15,30:34,48:52").Rows.Hidden = True
End If

Case "Maak selectie"
If Range("C8").Value = "maak selectie" Then
Range("13:15,30:34,48:52").Rows.Hidden = True
End If

Case "Nederland"
If Range("C8").Value = "SAP code" Then
Range("14:15,33:34,51:52").Rows.Hidden = True
Range("13:13,30:32,48:50").Rows.Hidden = False
End If

Case "Nederland"
If Range("C8").Value = "PO nummer via Ariba" Then
Range("13:15,33:34,51:52").Rows.Hidden = True
Range("30:32,48:50").Rows.Hidden = False
End If

Case "België"
If Range("C8").Value = "SAP code" Then
Range("13:15,33:34,51:52").Rows.Hidden = False
Range("30:32,48:50").Rows.Hidden = True
End If

Case "België"
If Range("C8").Value = "PO nummer via Ariba" Then
Range("33:34,51:52").Rows.Hidden = False
Range("13:15,30:32,48:50").Rows.Hidden = True
End If

End Select

 

[sylvester-ponte]

stukje uit jouw code:

Case "Maak selectie"
If Range("C8").Value = "SAP code" Then
Range("13:15,30:34,48:52").Rows.Hidden = True
End If

Case "Maak selectie"
If Range("C8").Value = "maak selectie" Then
Range("13:15,30:34,48:52").Rows.Hidden = True
End If

maak daar van:

Case "Maak selectie"
If Range("C8").Value = "SAP code" Then
Range("13:15,30:34,48:52").Rows.Hidden = True
ElseIf Range("C8").Value = "maak selectie" Then
Range("13:15,30:34,48:52").Rows.Hidden = True
End If

deze fout komt meer voor in jouw code

 

[crappy]

Hey Sylvester

Het is inmiddels opgelost, heb onderstaande gedaan.

Case "België"
If Range("C8").Value = "SAP code" Then
Range("13:15,33:34,51:52").Rows.Hidden = False
Range("30:32,48:50").Rows.Hidden = True
End If
If Range("C8").Value = "PO nummer via Ariba" Then
Range("33:34,51:52").Rows.Hidden = False
Range("13:15,30:32,48:50").Rows.Hidden = True
End If

Bedankt voor je reactie