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