Makro og VBA - Combobox

Print side | Luk vindue

Combobox

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=1013
Udskrevet den: 17.Maj.2024 kl. 09:58

Emne: Combobox

Besked fra: Lonny
Emne: Combobox
Posteringsdato: 04.Jan.2013 kl. 13:45

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

Svar:

Besked fra: excelent
Posteringsdato: 04.Jan.2013 kl. 18:06

Sub tst()
ActiveSheet.Shapes("ComboBox1").Select
Selection.Object.Value = "Vælg....."
ActiveCell.Select
End Sub

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Besked fra: Lonny
Posteringsdato: 05.Jan.2013 kl. 10:19

Tusind tak

VH Lonny

Besked fra: excelent
Posteringsdato: 05.Jan.2013 kl. 11:58

velbekom

-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!

Print side | Luk vindue