Søg
Avatar billede jath08ac Forsker
18. oktober 2017 - 13:41 Der er 7 kommentarer og
1 løsning

Vis og ændre værdi i combobox i UserForm

Hej,

Håber I kan hjælpe

Jeg hat en ComboBox, som viser en værdi fra mit regneark. Se kode nedenfor:
curcell.Offset(0, 4).Value = cmbSted.Value

Jeg vil gerne have mulighed for at ændre i værdien i comboboxen. Den værdi der bliver vist, er en del at de 4 værdier der skal kunne vælges.

De 4 værdier der skal kunne vælges i comboBoxen er:
Sted1
Sted2
Sted3
Sted4

pft.
Avatar billede Jan Hansen Ekspert
18. oktober 2017 - 14:04 #1
Se https://www.dropbox.com/s/47lllq8kdr0dkzm/Test3.xlsm?dl=0

Jan
Avatar billede jath08ac Forsker
18. oktober 2017 - 14:53 #2
@Jan: Jeg får fejl 424 under .list = ListeA når jeg sætter den ind i min kode.
Avatar billede Dan Elgaard Ekspert
18. oktober 2017 - 15:00 #3
I UserForm_Initialize eventen indsætter du:

With cmbSted ' Objekt navnet på comboboksen
    AddItem "Sted1"
    AddItem "Sted2"
    AddItem "Sted3"
    AddItem "Sted4"
End With

Bemærk, at der IKKE er lig med tegn (=) mellem 'AddItem' og værdien.
Avatar billede Jan Hansen Ekspert
18. oktober 2017 - 15:18 #4
# jeg har navngivet området med listen over navne
Avatar billede jath08ac Forsker
18. oktober 2017 - 15:23 #5
Når jeg indsætter ovenstående kode, så får jeg følgende fejl:
Sub og Function not defined

jeg har sat nedenstående kode ind:

Sub UserForm_Initialize()

With cmbSted ' Objekt navnet på comboboksen
    AddItem "Sted1"
    AddItem "Sted2"
    AddItem "Sted3"
    AddItem "Sted4"
End With


End Sub
Avatar billede Dan Elgaard Ekspert
18. oktober 2017 - 17:24 #6
Hvor har du placeret den 'UserForm_Initialize'?

I et kodemodul eller i en userForm???
Avatar billede jath08ac Forsker
18. oktober 2017 - 18:59 #7
Har indsat det i en UserForm som hedder udStamKort
Avatar billede Dan Elgaard Ekspert
18. oktober 2017 - 21:06 #8
Argh, f**k!

Alle 'AddItem' skal naturligvis have et punktum foran:

With cmbSted ' Objekt navnet på comboboksen
    .AddItem "Sted1"
    .AddItem "Sted2"
    .AddItem "Sted3"
    .AddItem "Sted4"
End With

Sorry!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
HVIS + LOPSLAG til flere værdier Af SQF i Excel 4 09/10/202510:50 14/10/202516:09
Finde uger og dage mellem 2 datoer Af mefa i Excel 9 08/10/202519:21 10/10/202505:05
Excel Makroer programmering bit32 - bit64 Af bhh i Excel 3 01/10/202512:22 03/10/202513:32
Eliminer kendte Af andershl i Excel 1 30/09/202520:40 01/10/202512:54
Numering af række efter størst til mindst Af Excel Optimisten i Excel 4 30/09/202512:56 30/09/202514:23
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
16/1010:01 W11 opdatering stopper Af barth i Windows
15/1019:59 TOMTOM GO Af nu_igen i Andet hardware
15/1012:51 REGIONALE NYHEDER PÅ DAB RADIO Af ole falsted i Fjernsyn & projektorer
14/1011:48 Videoredigering Af Cardby i Billedbehandling
13/1017:21 Firefox: Hvordan forhindrer jeg DOOM i altid at loade ved start af firefox? Af KurtG i Browsere
White papers
Flere white papers »