list 2 ændre indhold ud fra hvad der er valgt i list 1

Hej alle sammen.

Jeg sidder med et problem i vba excel jeg håber en af jer kan hjælpe mig med.

jeg skal lave et fejl registreringsværktøj og for og slippe for et monotomt skrive arbejde i excel vil jeg lave et lille program til det

det jeg har brug for hjælp til.

er jeg har 3 listboxes

den første "lstarea" vælger brugeren hvilket system fejlen er opstået i 1000, 2000, 3000 ovs

når brugeren har valgt hvilket system skal listbox 2 "lstzone" ændre sin liste til de zoner som f.eks system 2000 indeholder

lige nu kalder jeg lstarea sådan her:

Private Sub UserForm_Activate()
With lstarea
    .RowSource = "sys"
    .ListIndex = 0
End With

End Sub

og forsøgte og ændre data indholdet i lstzone sådan her:

Private Sub lstzone1000_Change()
    If lstarea.ListIndex = 0 Then
      With lstzone
        .RowSource = "sys1000"
        .ListIndex = 0
      End With

    ElseIf lstarea = 20001 Then
        With lstzone
            .RowSource = "sys2000l1"
            .ListIndex = 0
        End With
end sub

hvilket kun gav mig en meget tom lstzone box.

men da jeg ikke ønsker og kalde indholdet af lstzone og lstposition som en meget lang liste men vil have mit program til kun og vises hvad brugeren har brug for ud fra de valg han vælger skal programmet se på hvad der bliver valgt og derefter loade den korrekte liste ind i de givende listboxes.

håber en af jer lige har løsningen eller forslag til hvordan jeg burde gøre. jeg rimelig ny i vba så er lidt ude og svømme lige nu

mvh tobias