Aktivering af makro fra rulleliste

Hej svaberen

Er ikke helt klar over, hvordan din makro er strikket sammen ?, men jeg har forsøgt mig med følgende:

- 1 Word dokument
- 1 List Box (lst1) med tallene fra 0 til 6
- 1 Text Box (txt1)


Med nedenstående kode, i list boxens Click-hændelse, viser text boxens det tal der er klikket på i listen


Private Sub lst1_Click()

    Me.txt1.Text = Me.lst1.Value

End Sub

Håber det gi´r lidt hjælp ?

Mvh Nicolai

Hej Nicolai!

Well, jeg har 3 rullelister der hedder "rulleliste1" osv. Alle har 6 valgmuligheder og makroen er bygget op som følger:

Sub Rulleliste1()

    If ActiveDocument.FormFields("Rulleliste1").Result = "Abduktion" Then GoTo Abduktion

osv. den efterfølgende kode virker fint. Problemet er at få makroen aktiveret. Jeg ønsker at makroen aktiveres når jeg åbner listen og klikker på f.eks. "Abduktion"... Det sker ikke nu?

Hej svaberen

For mig ser det ud til, at "Sub Rulleliste1()" er en selvstændig procedure unden nogen form for hændelse tilknyttet.


Hvad med at flytte "Sub Rulleliste1()´s kode over i rullelistens egen Click_Hændlelse. ??

eller

Hvad hvis du i "Rulleliste1"´s Click hændelse kalder din procedure "Sub Rulleliste1", som følger:


'click hændelse
Private Sub Rulleliste1_Click()

  Rulleliste1

End Sub


'din egen nuværende procedure
Sub Rulleliste1()

  If ActiveDocument.FormFields("Rulleliste1").Result = "Abduktion" Then GoTo Abduktion

...

end sub




Alternativt:
Hvad sker der, hvis du ændrer din kode:

If ActiveDocument.FormFields("Rulleliste1").Result = "Abduktion" Then GoTo Abduktion


til:

If me.Rulleliste1.value = "Abduktion" then GoTo Abduktion


????

mvh Nicolai

Hej igen!

Hmm... Jeg ved ikke helt hvad du mener med at Sub'en er en selvstændig procedure uden hændelse? Altså koden fylder ialt ca. 40 linier, og virker som sagt fint når den bliver aktiveret.

Det som jeg ikke kan få til at virke er hvornår den bliver aktiveret. Jeg håbede at man kunne få den aktiveret gennem indstillinger i rullelistens egenskaber, men det kan man ikke, eller hvad?

Jeg er ikke klar over hvad en click-hændelse er og hvordan man bruger den... Kan du uddybe lidt?

Hej svaberen

Måske vi snakker lidt forbi hinanden ??

Så her er lige lidt spørgsmål:
1. Hvordan aktiverer du din kode p.t. ??

2. Når du si´r rullelister ... hvad mener du så ?
Er det rullelister oprettet via menulinien "Control Toolbox" i Word ?

3. Kan du evt. maile en kopi til mig (nfogt@privat.dk) ... af dit dokument med rullelisterne ... koderne er ikke nødvendige.


mvh Nicolai

Hej svaberen

Hermed et "svar" og løsningsteksten fra vores interne mail.


Din macro/sub Rulleliste1 var sat til afvikling ved udgangen af Rullelisten i Word dokumentet, altså når Rullelisten mistede sit focus = når man klikkede udenfor listen ....

Det har jeg ændret, så afviklingen af sub Rulleliste1 sker når en værdi på Rullelisten tilgåes.


Det jeg har gjort er:

- unprotected dokumentet
- højre klikket på din liste.
- valgt properties.
- midt på "properties-vinduet", under "Run macro on", har jeg:
  * I Entry listen, valgt din sub Rulleliste1
  * I Exit listen, valgt (none)
- protected dokumentet

mvh Nicolai