ComboboxStart item
 

Hi I use:
Dim getmedia As Range
Set getmedia = Sheets("Beregn").Range("media")
For Each d In getmedia
cbo_medie.AddItem d.Value
Next

How can i show the first item in the box, and not a empty line?

Alvin

ComboboxStart item
 

Dim getmedia As Range
Set getmedia = Sheets("Beregn").Range("media")
For Each d In getmedia
cbo_medie.AddItem d.Value
Next
cbo_medie.Listindex = 0


--
__________________________________
HTH

Bob

"alvin Kuiper" wrote in message
...
Hi I use:
Dim getmedia As Range
Set getmedia = Sheets("Beregn").Range("media")
For Each d In getmedia
cbo_medie.AddItem d.Value
Next

How can i show the first item in the box, and not a empty line?

Alvin

ComboboxStart item
 

cbo_medie.Listindex = 0 will set that to the first entry

cbo_medie.Listindex = -1 will set that to blank


If this post helps click Yes
---------------
Jacob Skaria


"alvin Kuiper" wrote:

Hi I use:
Dim getmedia As Range
Set getmedia = Sheets("Beregn").Range("media")
For Each d In getmedia
cbo_medie.AddItem d.Value
Next

How can i show the first item in the box, and not a empty line?

Alvin