Keskustelu: Ohjelmointikysymykset: VBA Comboboxin läpikäynti

Mitenkä Comboboxin kaikki arvot voi käydä läpi, ja samalla verrata arvoja johonkin stringiin vaikkapa?

Esim.

ActiveSheet.Shapes("Comboboxi").Select
With Selection
  For i=0 To .ListCount
    If .Item(i) = jokuStringi Then
      MsgBox "Stringi löyty!"
    End If
  Next i
End With

Tämä koodi siis ei toimi, ongelmana on saada tuon comboboxin arvot yksitellen vertailtavaksi tuohon jokuString-muuttujaan. Pitkään yritin tuossa googlettaa, mutta ei oikein neuvoja löytynyt...

Tälläistä koodia tarvitsisin sellaiseen operaatioon, kun haluan tarkistaan onko Comboboxissa jo jotain stringiä, sillä en halua duplikaattiarvoja Comboboxiin.

With ActiveSheet.OLEObjects("ComboBox1")
 For Each aa In .Object.List
  If aa=JokuStringi Then MsgBox "Stringi löytyi!"
 Next
End With

Tämä esimerkki toimii Exselin VB-koodissa.

Kiitti.