Navigation

Hej 
Først og fremmest godt nytår til jer alle 

Jeg har igen igen et box-problem og håber I som altid kan hjælpe 

Jeg sætter en combobox således
ark = "SRA0035" 
With Range("A39:A39")
sæt_combo1 ark, .Left, .Top, .Width + 47, .Height + 5, "nedbør_type", "Data!E9:E12"
End With
hvor kaldet til sæt_combo1 går til
Public Sub sæt_combo1(ark, lf, tp, wh, hg, navn, dat)
    Worksheets(ark).OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=lf, Top:=tp, Width:=wh, Height:= _
        hg).Select
    With Selection
        .Name = navn
        .ListFillRange = dat       
    End With
End Sub

Jeg vil gerne have en overskift i comboboxen ala "Vælg ... " som er teksten i celle E9 i arket Data dvs første celle i min ListFillRange.
Jeg har prøvet med .ListIndex = 0 i With-sætningen i Subben sæt_combo1 - det funker ikke
Jeg ar også prøvet med .text eller .value i samme With-sætning og så ændret min ListFillRange til "Data!E10:E12" - det funker heller ikke

Kan en af jer hjælpe mig? det er sikkert simpelt, men pt. er jeg gået sur i problemet

Vh fra Lonny

Navigation

Combobox