comboboks betinget liste

Jeg regner med du bruger formularfelter (Rulleliste) i Word:

ActiveDocument.FormFields("comboboksB").DropDown.value = ActiveDocument.FormFields("comboboksA").DropDown.value

Så denne kode på udgangsmakroen i rulleliste "comboboksA"

KÆre RVM

tak for din mail.
jeg er lidt usikker på din tilbagemelding. Jeg er faktisk også usikker på om jeg har stillet spørgsmålet korrekt.
Hvorfor jeg lige gentager det på en lidt anden måde.
Jeg har en primær comboboks der har en liste med med 2 muligheder.
mulighed 1. nytegning
mulighed 2. ændring.
hvis primær comboboks er mulighed 1.(NYTEGNING) skal mulighederne i sekundær comboboks være:
("jens")
("OLE")
hvis primær comboboks er mulighed 2.(ÆNDRING) skal mulighederne i sekundær comboboks være:
("ULLA")
("lONE")
(Indholdet i primær comboboks ser sådan ud - kode mæssigt. 
Private Sub Document_Open()

    ComboTegnType.AddItem ("Nytegning")
    ComboTegnType.AddItem ("Ændring")
End Sub

Jeg håber dette kaster lidt bedre lys over problemet

med venlig hilsen

HHB

Gem denne kode under ThisDocument i VBA miljøet (Alt+F11)

Private Sub comboboksA_Change()

If comboboksA.Value = "NYTEGNING" Then
    comboboksB.Clear
    comboboksB.AddItem "Ole"
    comboboksB.AddItem "Hans"
Else
    comboboksB.Clear
    comboboksB.AddItem "Helle"
    comboboksB.AddItem "Lone"
End If

End Sub

Private Sub Document_Open()

comboboksA.Clear
comboboksA.AddItem "NYTEGNING"
comboboksA.AddItem "ÆNDRING"

End Sub

Kære Rvm
mange tak for dit svar.
det virker
MVH
HHB

jeg fik vist ikke lukket rigtigt

vi prøver igen