hoe kan je snel veel regels tussen voegen in een code?

Status
Niet open voor verdere reacties.

markwat

Gebruiker
Lid geworden
11 mrt 2011
Berichten
301
Als je veel de zelfde codes hebt,
hoe kan je snel veel regels TUSSEN voegen in een code?
Vervangen van regels is geen probleem dat lukt mij.

het is enkel een voorbeeld.
Code:
          Else: End If
        Next i
    Else: End If
GoTo 1
Next o

1:

End Sub

nu wil ik snel 100x deze code tussen 1: en End Sub zetten.

Code:
Dim xRg As Range 
On Error Resume Next

Set xRg = Worksheets("Rapportage").Range(Cells(nummer * 15, 1), Cells(nummer * 15, 6))
xRg.Interior.ColorIndex = 3

Code:
          Else: End If
        Next i
    Else: End If
GoTo 1
Next o
1:

Dim xRg As Range 
On Error Resume Next

Set xRg = Worksheets("Rapportage").Range(Cells(nummer * 15, 1), Cells(nummer * 15, 6))
xRg.Interior.ColorIndex = 3

End Sub

vriendelijk dankt

groet paul
 
Plaats een voorbeeld document in plaats van een paar regeltjes code.
Daarnaast is Else: End If volledig overbodig en GoTo helemaal uit den boze.
 
beste Edmoor.

als je 100 regels in VBA wilt vervangen of even uit wil schakelen zet je bij vervangen een ' ervoor.
maar wanneer je meerdere regels ergens tussen wilt voegen dan gaat dat niet bij vervangen in VBA.

het is enkel maar als voorbeeld gebruikt de code.
 
Ik kan me niks voorstellen bij het invoegen van 100x dezelfde regels in je VBA Sub.
 
Een voorbeeld..

nu wil ik overal nog een Case regel tussen toevoegen.
hoe kan ik dat in een notime doen?



Code:
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
 
Maak 1 functie die het afhandelen van de toetsen regelt, dan hoef je maar op 1 plek een regel in te voegen.
Die functie roep je dan aan in de _KeyDown events.
Bijvoorbeeld:
Code:
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'met enter, pijl naar beneden, pijl naar boven, comboboxen bedienen
    KeyCode = Toets_Down(KeyCode, ComboBox3, ComboBox4)
End Sub

Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    KeyCode = Toets_Down(KeyCode, ComboBox3, ComboBox4)
End Sub

Private Sub ComboBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    KeyCode = Toets_Down(KeyCode, ComboBox1, ComboBox2)
End Sub

Private Sub ComboBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    KeyCode = Toets_Down(KeyCode, ComboBox1, ComboBox2)
End Sub

Function Toets_Down(ByVal KeyCode As Integer, ByRef cmb1 As ComboBox, ByRef cmb2 As ComboBox) As Integer
    Select Case KeyCode
        Case 38:     cmb1.SetFocus: Toets_Down = 0
        Case 40, 13: cmb2.SetFocus: Toets_Down = 0
        Case Else:  Toets_Down = KeyCode
    End Select
End Function

Daarnaast kan je, als antwoord op je vraag, de code exporteren en met bijvoorbeeld Notepad++ bewerken.
 
Laatst bewerkt:
Beste Edmoor,

Wauw bedankt 1 vraag 2 oplossingen!!
Ik heb notepad++ gevonden! ja geweldig!
de formule ga ik aanpassen zoals je aan gaf met Function.
Hartelijk dank!

gr paul
 
Lees ook de suggestie van snb.
Dat is nog beter.
 
100 comboboxen in een UF is echt veel teveel.
 
beste snb,

het is niet in een UserForm.
het zijn cellen waar een combobox boven hangt.
het werkt super en snel, met de veelvoudigheid van de combobox.
 
Ook in een werkblad is dan 1 combobox voldoende.
Structuring precedes coding.

Plaats een voorbeeld, dan kan het jou geïllustreerd worden.
 
Laatst bewerkt:
Beste snb,

hahahaha, ik schaam mij "dood" naar jullie voor wat ik heb gemaakt...
nu moet ik zeggen het werkt goed.
en ik kan er precies mee doen wat ik wil...
ik ben een badkamerinstallateur/lekdetectie en vind het leuk om dit ook nog een beetje met VBA te stoeien...
in die 10 jaar heb ik toch een leuk programma gemaakt.... jaja... voor mij..
ik vind het heel gevaarlijk om dit te delen want ik wil niet dat iemand in een shock raakt na het zien van dit bestand.....
 
Ik zou het delen, alleen al om te zien hoe het ook zou kunnen.
Wil niet zeggen dat je het moet gebruiken
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan