Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'met enter, pijl naar beneden, pijl naar boven, comboboxen bedienen
Select Case KeyCode
Case 38: ComboBox91.Activate: KeyCode = 0 'terug code 38 = Arrow Up
Case 40, 13: ComboBox2.Activate: KeyCode = 0 'naar volgende combobox code. 13 = Enter 40 = Arrow Down
End Select
End Sub
Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox1.Activate: KeyCode = 0
Case 40, 13: ComboBox3.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox2.Activate: KeyCode = 0
Case 40, 13: ComboBox4.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox3.Activate: KeyCode = 0
Case 40, 13: ComboBox5.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox4.Activate: KeyCode = 0
Case 40, 13: ComboBox6.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox5.Activate: KeyCode = 0
Case 40, 13: ComboBox7.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox7_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox6.Activate: KeyCode = 0
Case 40, 13: ComboBox8.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox8_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox7.Activate: KeyCode = 0
Case 40, 13: ComboBox9.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox9_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox8.Activate: KeyCode = 0
Case 40, 13: ComboBox10.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox10_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox9.Activate: KeyCode = 0
Case 40, 13: ComboBox11.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox11_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox10.Activate: KeyCode = 0
Case 40, 13: ComboBox12.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox12_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox11.Activate: KeyCode = 0
Case 40, 13: ComboBox13.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox13_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox12.Activate: KeyCode = 0
Case 40, 13: ComboBox14.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox14_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox13.Activate: KeyCode = 0
Case 40, 13: ComboBox15.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox15_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox14.Activate: KeyCode = 0
Case 40, 13: ComboBox16.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox16_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox15.Activate: KeyCode = 0
Case 40, 13: ComboBox17.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox17_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox16.Activate: KeyCode = 0
Case 40, 13: ComboBox18.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox18_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox17.Activate: KeyCode = 0
Case 40, 13: ComboBox19.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox19_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox18.Activate: KeyCode = 0
Case 40, 13: ComboBox20.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox20_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox19.Activate: KeyCode = 0
Case 40, 13: ComboBox21.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox21_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox20.Activate: KeyCode = 0
Case 40, 13: ComboBox22.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox22_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox21.Activate: KeyCode = 0
Case 40, 13: ComboBox23.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox23_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox22.Activate: KeyCode = 0
Case 40, 13: ComboBox24.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox24_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox23.Activate: KeyCode = 0
Case 40, 13: ComboBox25.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox25_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox24.Activate: KeyCode = 0
Case 40, 13: ComboBox26.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox26_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox25.Activate: KeyCode = 0
Case 40, 13: ComboBox27.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox27_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox26.Activate: KeyCode = 0
Case 40, 13: ComboBox28.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox28_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox27.Activate: KeyCode = 0
Case 40, 13: ComboBox29.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox29_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox28.Activate: KeyCode = 0
Case 40, 13: ComboBox30.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox30_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox28.Activate: KeyCode = 0
Case 40, 13: ComboBox31.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox31_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox30.Activate: KeyCode = 0
Case 40, 13: ComboBox32.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox32_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox31.Activate: KeyCode = 0
Case 40, 13: ComboBox33.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox33_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox32.Activate: KeyCode = 0
Case 40, 13: ComboBox34.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox34_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox33.Activate: KeyCode = 0
Case 40, 13: ComboBox35.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox35_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox34.Activate: KeyCode = 0
Case 40, 13: ComboBox36.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox36_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox35.Activate: KeyCode = 0
Case 40, 13: ComboBox37.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox37_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox36.Activate: KeyCode = 0
Case 40, 13: ComboBox38.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox38_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox37.Activate: KeyCode = 0
Case 40, 13: ComboBox39.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox39_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox38.Activate: KeyCode = 0
Case 40, 13: ComboBox40.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox40_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox39.Activate: KeyCode = 0
Case 40, 13: ComboBox41.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox41_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox40.Activate: KeyCode = 0
Case 40, 13: ComboBox42.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox42_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox41.Activate: KeyCode = 0
Case 40, 13: ComboBox43.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox43_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox42.Activate: KeyCode = 0
Case 40, 13: ComboBox44.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox44_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox43.Activate: KeyCode = 0
Case 40, 13: ComboBox45.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox45_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox44.Activate: KeyCode = 0
Case 40, 13: ComboBox46.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox46_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox45.Activate: KeyCode = 0
Case 40, 13: ComboBox47.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox47_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox46.Activate: KeyCode = 0
Case 40, 13: ComboBox48.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox48_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox47.Activate: KeyCode = 0
Case 40, 13: ComboBox49.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox49_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox48.Activate: KeyCode = 0
Case 40, 13: ComboBox50.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox50_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox49.Activate: KeyCode = 0
Case 40, 13: ComboBox51.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox51_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox50.Activate: KeyCode = 0
Case 40, 13: ComboBox52.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox52_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox51.Activate: KeyCode = 0
Case 40, 13: ComboBox53.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox53_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox52.Activate: KeyCode = 0
Case 40, 13: ComboBox54.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox54_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox53.Activate: KeyCode = 0
Case 40, 13: ComboBox55.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox55_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox54.Activate: KeyCode = 0
Case 40, 13: ComboBox56.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox56_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox55.Activate: KeyCode = 0
Case 40, 13: ComboBox57.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox57_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox56.Activate: KeyCode = 0
Case 40, 13: ComboBox58.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox58_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox57.Activate: KeyCode = 0
Case 40, 13: ComboBox59.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox59_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox58.Activate: KeyCode = 0
Case 40, 13: ComboBox60.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox60_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox59.Activate: KeyCode = 0
Case 40, 13: ComboBox61.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox61_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox60.Activate: KeyCode = 0
Case 40, 13: ComboBox62.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox62_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox61.Activate: KeyCode = 0
Case 40, 13: ComboBox63.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox63_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox62.Activate: KeyCode = 0
Case 40, 13: ComboBox64.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox64_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox63.Activate: KeyCode = 0
Case 40, 13: ComboBox65.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox65_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox64.Activate: KeyCode = 0
Case 40, 13: ComboBox66.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox66_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox65.Activate: KeyCode = 0
Case 40, 13: ComboBox67.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox67_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox66.Activate: KeyCode = 0
Case 40, 13: ComboBox68.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox68_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox67.Activate: KeyCode = 0
Case 40, 13: ComboBox69.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox69_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox68.Activate: KeyCode = 0
Case 40, 13: ComboBox70.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox70_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox69.Activate: KeyCode = 0
Case 40, 13: ComboBox71.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox71_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox70.Activate: KeyCode = 0
Case 40, 13: ComboBox72.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox72_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox71.Activate: KeyCode = 0
Case 40, 13: ComboBox73.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox73_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox72.Activate: KeyCode = 0
Case 40, 13: ComboBox74.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox74_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox73.Activate: KeyCode = 0
Case 40, 13: ComboBox75.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox75_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox74.Activate: KeyCode = 0
Case 40, 13: ComboBox76.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox76_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox75.Activate: KeyCode = 0
Case 40, 13: ComboBox77.Activate: KeyCode = 0
End Select
End Sub
Private Sub ComboBox77_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 38: ComboBox76.Activate: KeyCode = 0
Case 40, 13: ComboBox78.Activate: KeyCode = 0
End Select
End Sub