CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

finnholm Nybegynder

29. april 2005 - 09:46 Der er 9 kommentarer og
1 løsning

Dobbel list box

Hej

Jeg kæmper lidt med en listbox uden særlig meget held.

Ved aktivering af makro skal brugeren få to list boxe op. En til valg af kundesegment (10 forskellige) og en med 2 valg. Den en skal returnere værdi til felt c2 og den anden d2.

Det jeg har lavet indtil videre er:

En user form med disse 2 lister med valgmulighederne.

Det der mangler er en OK/annuller - efter valg er foretaget.
Og de valgte værdier skal så skrives til de 2 nævnte felter.

Mvh.
Finn

Synes godt om

kabbak Professor

29. april 2005 - 10:11 #1

lav 2 knapper

den ene med teksten OK ig den anden med ANNULLER

i koden for OK knappen skal du lave koden

Range("C2") = list1
Range("D2") = list2

Du skal ikke i properties linke dem til skrive cellen

I ANNULLER koden skriv

me.unload

Synes godt om

kabbak Professor

29. april 2005 - 10:16 #2

sådan

Private Sub Annuller_Click()
Unload Me
End Sub

Private Sub OK_Click()
Range("C2") = ListBox1
Range("D2") = ListBox2
Unload Me
End Sub

Synes godt om

finnholm Nybegynder

29. april 2005 - 10:25 #3

hvor ligger du private sub

Synes godt om

finnholm Nybegynder

29. april 2005 - 10:34 #4

Hvis jeg ligger dem under userform så bliver de jo ikke aktiveret i makroen.
Og hvordan aktiverer jeg userformen i en makroen?

Synes godt om

kabbak Professor

29. april 2005 - 11:20 #5

i din makro kalder du din userform

Public Sub indtast()
UserForm1.Show
End Sub

resten af koderne ligger under knapperne OK OG ANNULLER

Synes godt om

finnholm Nybegynder

29. april 2005 - 11:28 #6

Under "userform1" står der følg: Er det OK? Nu kommer formen godt nok frem og man kan vælge. Men OK/annuller virker ikke..

Private Sub CommandButton1_Click()

End Sub

Private Sub Frame1_Click()

End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub Annuller_Click()
Unload Me
End Sub

Private Sub OK_Click()
Sheets("EbitD").Select
Range("C2") = ListBox1
Range("D2") = ListBox2
Unload Me
End Sub

Private Sub ListBox2_Click()

End Sub

Synes godt om

kabbak Professor

29. april 2005 - 11:32 #7

dine 2 knapper skal hedde OK og ANNULLER

og ikke CommandButton1 og CommandButton2

Synes godt om

finnholm Nybegynder

29. april 2005 - 11:37 #8

Kanon - det var jo bare det der skulle til....

Ligger du et svar....
TUSIND TAK FOR HJÆLPEN....

Synes godt om

kabbak Professor

29. april 2005 - 11:37 #9

Ok så et svar ;-))

Synes godt om

kabbak Professor

29. april 2005 - 11:41 #10

tak for point

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
renteberegning Af Pil i Excel	3	24/11/202411:27	25/11/202417:42
Identificér og hent del af tekststreng Af TheLibrarian i Excel	2	22/11/202416:49	25/11/202409:27
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS