Combobox

[Bas1980]

Hallo,

Ik heb 2 comboboxen die aan elkaar gerelateerd zijn. Als ik in de ene combobox een nummer invoer moet de 2e combobox de omschrijving automatisch geven. Dit lukt. Maar als ik alleen de omschrijving die in combobox 2 staat weet en in voer dan moet in de eerste combobox het corresponderende nummer er automatisch bijkomen. Deze terugkoppeling wil niet werken terwijl ik het op een ander formulier wel werkend heb. Kopieren en plakken helpt helaas niets en doet hetzelfde.

Ik heb deze code:

Private Sub ComboBox1_Change()
Dim ComboBox1 As Range
With Worksheets("Database sleutels").Range("A1:A999999")
Set Naam = .Find(Me.ComboBox1.Value, LookIn:=xlValues)
If Not Naam Is Nothing Then
Me.ComboBox2 = .Range("B" & Naam.Row).Value
End If
End With
End Sub

Private Sub ComboBox2_Change()
Dim ComboBox2 As Range
With Worksheets("Database sleutels").Range("A1:A999999")
Set Naam = .Find(Me.ComboBox2.Value, LookIn:=xlValues)
If Not Naam Is Nothing Then
Me.ComboBox1 = .Range("A" & Naam.Row).Value
End If
End With
End Sub

Private Sub UserForm_Initialize()
ComboBox1.List = Sheets("Database sleutels").Cells(2, 1).Resize(10).Value
ComboBox2.List = Sheets("Database sleutels").Cells(2, 2).Resize(10).Value
End Sub

In de sheet "Database sleutels" staan 2 kolommen. De eerste kolom is het sleutelnummer en de 2e kolom de omschrijving. Meer is het niet. Wat gaat er in bovenstaande code fout?

 

[snb]

Ze ontberen een voorbeeldbestand.

 

[VenA]

Is dit niet voldoende?

Private Sub ComboBox1_Change()
  ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub

Private Sub ComboBox2_Change()
  ComboBox1.ListIndex = ComboBox2.ListIndex
End Sub