[VBA]Excel combobox selectie

[Sanity11]

Hi,

Ik wil wanneer er een waarde van de geselecteerde cell voorkomt in de betreffende combobox, dat deze alvast geselecteerd word.

Nu dacht ik dat zo even te doen, maar helaas!

code:

If ActiveCell.Value = ComboBox1.MatchFound = True Then
         ComboBox1.ListIndex = ActiveCell.Value
End If

Weet iemand wat ik fout doe?

Bedankt voor de reacties!

[Lustucru]

Ik snap hier helemaal niks van. Wat is de 'betreffende' combobox, wat is de relatie tussen cel en combobox en waar laat je de code.

Let er aub oop dat je een topicstart in elkaar zet die ondubbelzinnig en duidelijk is voor mensen die niet achter jouw pc zitten. Anders wordt het gok en giswerk.

[Sanity11]

niesje schreef op woensdag 13 december 2006 @ 10:41:
Ik snap hier helemaal niks van. Wat is de 'betreffende' combobox, wat is de relatie tussen cel en combobox en waar laat je de code.

Let er aub oop dat je een topicstart in elkaar zet die ondubbelzinnig en duidelijk is voor mensen die niet achter jouw pc zitten. Anders wordt het gok en giswerk.

Hehe, ok ik zal mijn best doen.

De code word geladen wanneer de form word geladen.

Ik zal even de hele code laten zien:

code:

Private Sub UserForm_Activate()
    
    Dim strPartnummer As String
    Dim i As Integer
    i = 2
    strPartnummer = "waarde"
    
    Do Until strPartnummer = ""
    i = i + 1
    strPartnummer = Worksheets("Niet ingevuld").Range("A" & i)
    If strPartnummer = "" Then
    Else
    ComboBox1.AddItem (strPartnummer)
    End If
    Loop
           
    If ActiveCell.Value = ComboBox1.MatchFound = True Then
         ComboBox1.ListIndex = ActiveCell.Value
    End If
            
End Sub

Nu is het zo dat het programma op bepaalde momenten naar een bepaalde cell verspringt.
Deze cell heeft een invulling en het zou kunnen dat dat overeenkomt met 1 van de geladen items in de combobox.
Wanneer dat het geval is zou het mooi zijn als de combobox dan ook al meteen dat item heeft geselecteerd.

Ik hoop dat het nu wat duidelijker is

[Verwijderd]

Sanity11 schreef op woensdag 13 december 2006 @ 10:55:Hehe, ok ik zal mijn best doen.

De code word geladen wanneer de form word geladen.

Ik zal even de hele code laten zien:


Nu is het zo dat het programma op bepaalde momenten naar een bepaalde cell verspringt.
Deze cell heeft een invulling en het zou kunnen dat dat overeenkomt met 1 van de geladen items in de combobox.
Wanneer dat het geval is zou het mooi zijn als de combobox dan ook al meteen dat item heeft geselecteerd.

Ik hoop dat het nu wat duidelijker is

code:

Private Sub UserForm_Activate()
    
    Dim strPartnummer As String
    Dim i As Integer
    dim AantalItems as long

    i = 2
    strPartnummer = "waarde"
    
    Do Until strPartnummer = ""
    i = i + 1
    strPartnummer = Worksheets("Niet ingevuld").Range("A" & i)
    If strPartnummer = "" Then
    Else
    ComboBox1.AddItem (strPartnummer)
    End If
    Loop
           
    For aantalitems= 0 To ComboBox1.ListCount - 1
    If ActiveCell.Value = ComboBox1.List(aantalitems) Then
      ComboBox1.Text = ActiveCell.Value
    End If
  Next
            
End Sub

[Sanity11]

Geweldig!

Als ik het nu zo zie dan kan ik mezelf wel

Bedankt!