Textbox afhankelijk van combobox

[weusty]

Goedenmorgen,

Ik heb de volgende code gemaakt en deze werkt goed, maar ik moet tot regel 90 en dan lijkt me deze manier wat omslachtig.

Private Sub ComboBox_Rayonl_Change()

If ComboBox_Rayonl.Value = Sheets("Gegevens").Range("E3") Then TextBox7.Value = Sheets("Gegevens").Range("D3")
If ComboBox_Rayonl.Value = Sheets("Gegevens").Range("E4") Then TextBox7.Value = Sheets("Gegevens").Range("D4")
If ComboBox_Rayonl.Value = Sheets("Gegevens").Range("E5") Then TextBox7.Value = Sheets("Gegevens").Range("D5")

End Sub

Kan dit eenvoudiger?

m.v.g. Weust

 

[modbeek]

weet niet precies hoe de rest van je bestand eruitziet, maar iets als het volgende zou kunnen:

Private Sub ComboBox_Rayonl_Change()
Dim i as integer


Range("E3").Select

for i = 1 to 90
     If ComboBox_Rayonl.Value = ActiveCell.Text Then 
           ActiveCell.Offset(0, 1).Activate
          TextBox7.Value = ActiveCell.Text
           Exit For
     end if
     ActiveCell.Offset(1, 0).Activate
next i


End Sub

 

[snb]

Het met VBA wijzigen van de waarde van een combobox in de gebeurtenisprocedure Change van diezelfde combobox duidt erop dat je te weinig begrip hebt van wat een combobox is. Bestudeer eerst eens de hulpfunktie van de VBEditor of een goed boek.