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
End Down Af PGFfyn i Excel	1	I dag 12:57	I dag 13:31
Sum af forskellige celler Af lurup i Excel	3	14/06/202423:56	I går 20:54
Kørt fast i simpel kvalitets model Af Flemming Staal i Excel	4	14/06/202409:18	14/06/202411:09
sammenlægge 2 eller 3 kolonner til 1 kolonne Af Klaus W i Excel	12	12/06/202417:01	14/06/202410:45
Udregne jubilæer Af HHA i Excel	17	12/06/202409:55	14/06/202418:57

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

14/06

Første møde med de ’rigtige’ AI-pc’er: Et kæmpepotentiale ligger forude

14/06

Microsoft står skoleret: Bliver grillet for selskabets ringe sikkerhed og aktiviteter i Kina

14/06

Nørgaard: Det er så torskedumt at læggge ekstra-skatter på de billige el-biler fra Kina

14/06

Omstridte Clearview AI indgår usædvanlig aftale for at undgå massesøgsmål om ansigtsgenkendelse

14/06

Virksomheder af en vis størrelse får det svært i AI-ræset: Men bestemte tiltag kan sende dem frem i feltet

14/06

Nu kan du blive it-ansvarlig for det danske kongehus: Se om du er kvalificeret til jobbet her

14/06

På Bornholm jagter Computerworld bekymret svar på det store spørgsmål

14/06

NIS2-implementeringen er nu i gang: Varsler omfattende tilsyn og store bøder

14/06

Staten mister i stor stil teknisk kyndige it-folk: Vigtig viden om samfundskritiske systemer overlades til konsulenter

14/06

Bill Gates på vej med bog om sin barndom og personlige udvikling

14/06

OUH vil hjemtage systemer til regionens datacenter efter ødelæggende angreb på leverandør

Vis flere artikler

IT-JOB

Netcompany A/S

IT Manager

KMD A/S

Senior Java Developer

Udviklings- og Forenklingsstyrelsen

Business Analyst med udsyn og sans for forretningsudvikling

Itm8

Bliv vores nye Collaboration Konsulent hos itm8

KMD A/S

Product Manager

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

9 min siden	Tekstoplæsning - fjerne talebesked Af 1Dorte i Android
I dag 12:57	End Down Af PGFfyn i Excel
I dag 11:37	Hvilken type adapter skal man bruge - USB Af clausito i PC
I dag 11:11	Appel Copy Paste Af HenningFr i iOS, iPhone & iPad
I dag 10:39	Asus Display port NO SIGNAL Af Lars8960 i Skærme