Hvordan laver jeg en drop dawn menu

Vil du anvende en formular eller kontrolelement?

Kontrolelement:
- Åbn denne værktøjslinie
-- Vælg kombinationsboks
--- Afsæt boksen i regnearket med passende bredde og begrænset højde

Følgende kode indsættes i Ark1 - VBA (Alt+F11):


Private Sub worksheet_activate()
    With ComboBox1
        .AddItem "1,45"    'indsætter ønskede værdier
        .AddItem "1,50"
        .AddItem "1,55"
        .AddItem "1,60"
        .AddItem "1,65"
        .AddItem "1,70"
        .AddItem "1,75"
        .AddItem "1,80"
        .AddItem "1,85"
    End With
End Sub

Del 2:
Koden indsættes ligeledes i VBA - Ark1

Private Sub combobox1_change()
Dim tal1 As Single
    tal1 = ComboBox1          'hent den valgte værdi - sæt den i decimaltals-format
End Sub

Jeg kan ikke finde
Kontrolelement:
- Åbn denne værktøjslinie ....

Har bla kikket forgæves i menupunktet Data

Højreklik på en af de bestående værktøjslinier...

JEg bruger excel 2000
Når jeg højerklikker på værktøjslinje har jeg ikke umidelbart en mulighed for at vælge kombinationsbos. Under hvilken kategori er denne mulighed ?

Klik et tomt sted på værktøjslinien og vælg - Værktøjslinien kontrolelementer.

Ok det er nyt land for mig det her :o)
Nu er jeg kommet ind i visoal bacik
Hvordan /hvor finder jeg og indtaster :

Private Sub worksheet_activate()
    With ComboBox1
        .AddItem "1,45"    'indsætter ønskede værdier
        .AddItem "1,50"
        .AddItem "1,55"
        .AddItem "1,60"
        .AddItem "1,65"
        .AddItem "1,70"
        .AddItem "1,75"
        .AddItem "1,80"
        .AddItem "1,85"
    End With
End Sub

Ok jeg har prøvet højreklikke Ark1 /Vive code / Valgt comboBox 2 /Der har jeg indkopiret /
Private Sub worksheet_activate()
    With ComboBox1
        .AddItem "1,45"    'indsætter ønskede værdier
        .AddItem "1,50"
        .AddItem "1,55"
        .AddItem "1,60"
        .AddItem "1,65"
        .AddItem "1,70"
        .AddItem "1,75"
        .AddItem "1,80"
        .AddItem "1,85"
    End With
End Sub

Er det rigtigt ?
Hvis ja hvordan får jeg så selve opjektet til at reagere på det ? Lige nu kan jeg kun ændre størelse på Drop dawn menu

Designvisning skal slås fra i Kontrolelementer (øverste venstre knap) -
Private Sub worksheet_activate() i koden reagere - når Ark1 aktiveres - så skulle indeholdetblive vist i Combobox1.

Ok - ja der er nok et stykke vej endnu ? Men tak for at du vil "holde mig i hånd " :o)
Deaktiverering = knap aktiv - så lang så godt
Der er bare ikke nogen tal synlige når jeg trykker på pil

Prøv at klikke på Ark2 og derefter på Ark1

det gør ingen forskel

jeg har ikke indsat
Del 2:
Koden indsættes ligeledes i VBA - Ark1

Private Sub combobox1_change()
Dim tal1 As Single
    tal1 = ComboBox1          'hent den valgte værdi - sæt den i decimaltals-format
End Sub

Hvor gør jeg det ?

En alternativ metode :

1. Marker den selle hvor liste skal være
2. Vælg Datavalidering i menuen Data
3. Vælg Liste i feltet Tillad
4. I feltet Kilde indtast dine værdier adskilt af semikolon
5. ok

Kopier koden ind i VBA, der hvor den øvrige kode er anbragt.

Tak til supertekst for at du forsøgte at lære mig din metode
Det blev dog den metode Excelent viste jeg nemmest kunne forstå /bruge
Jeg vil gerne dele guldet mellem jer. I kan jo selv foreslå en fordelingsnøgle
Mange tak for hjælpen !!

Ps en dag jeg har go tid vil jeg faktisk gerne lære din metode Supertekst
Findes der en pang dang til http://imageshack.dk/ således man kan hente eks excel programmer på en tilsvarende site ? Det kunne være en metode til at sende programstumper i Excel

Hvis det har interasse er det nedenstående I har bidraget til
http://imageshack.dk//viewimage.php?file=/imagesfree/aqx79838.jpg

100/100 hvis det er ok med supertekst

Selv tak og OK...