Is het mogelijk het onderstaande te vereenvoudigen. Ik gebruik een userformulier en kies hier een klant. De klant wordt opgehaald uit een tabblad Instellingen. Nu wil ik dat als ik een bepaalde klant selecteer ik dus ook alleen de projecten van die klant kan kiezen in het onderdeel project in het userformulier. Via onderstaande code lukt me dat wel, maar is wel omslachtig. Ook moet ik steeds onderstaande aanpassen als er een nieuwe klant bijkomt. Kan me iemand helpen hou ik dit kan vereenvoudigen. Het tabblad instellingen is mijn basis tabblad en hier voor ik dus eventueel nieuwe projecten en/of klanten in.
Alvast bedankt,
Ron
Alvast bedankt,
Ron
Code:
If Klant = "Coop" Then
Project.RowSource = "Instellingen!O2:O" & Sheets("Instellingen").Columns(15).SpecialCells(2).Count
Else
If Klant = "DRS" Then
Project.RowSource = "Instellingen!P2:P" & Sheets("Instellingen").Columns(16).SpecialCells(2).Count
Else
If Klant = "Tesco" Then
Project.RowSource = "Instellingen!Q2:Q" & Sheets("Instellingen").Columns(17).SpecialCells(2).Count
Else
If Klant = "Carrefour France" Then
Project.RowSource = "Instellingen!R2:R" & Sheets("Instellingen").Columns(18).SpecialCells(2).Count
Else
If Klant = "Carrefour Spain" Then
Project.RowSource = "Instellingen!S2:S" & Sheets("Instellingen").Columns(19).SpecialCells(2).Count
Else
If Klant = "Carrefour Belgium" Then
Project.RowSource = "Instellingen!T2:T" & Sheets("Instellingen").Columns(20).SpecialCells(2).Count
Else
If Klant = "Feneberg" Then
Project.RowSource = "Instellingen!U2:U" & Sheets("Instellingen").Columns(21).SpecialCells(2).Count
Else
If Klant = "Tegut" Then
Project.RowSource = "Instellingen!V2:V" & Sheets("Instellingen").Columns(22).SpecialCells(2).Count
Else
If Klant = "Rewe" Then
Project.RowSource = "Instellingen!W2:W" & Sheets("Instellingen").Columns(23).SpecialCells(2).Count
Else
If Klant = "Re-Vision" Then
Project.RowSource = "Instellingen!X2:X" & Sheets("Instellingen").Columns(24).SpecialCells(2).Count
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
Laatst bewerkt door een moderator: