Textbox afhankelijk van combobox

Status
Niet open voor verdere reacties.

weusty

Gebruiker
Lid geworden
23 feb 2007
Berichten
133
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.


Code:
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
 
weet niet precies hoe de rest van je bestand eruitziet, maar iets als het volgende zou kunnen:

Code:
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
 
Laatst bewerkt:
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.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan