Word VBA Dropdownmenü abgleich mit Dropdownmenü2

  • Word

    Word VBA Dropdownmenü abgleich mit Dropdownmenü2

    Hallo zusammen

    Leider habe ich in Visual Basic wenig Erfahrungen, kann mir hier jemand weiter helfen? Das Ausfüllen Dropdown Fenster Getränke füllt automatsch das dropdown Menü aus, bis hierher funktioniert alles super. Mein Problem ist wie erweitere ich das ganze das Getränke02 sich mit Menü02 abgleichen beim auswählen? und das ganze mit 03. Kann man das durch eine Schleife erweitern? Was muss ich anpassen?

    Vielen Dank im voraus

    Dirk

    script:

    Visual Basic-Quellcode

    1. Const SOURCE_CC As String = "Getränke" ' Titel des 1. DropDowns
    2. Const DEPENDENCY_CC As String = "Menü" ' Titel des 2. DropDowns, dessen Einträge
    3. ' von der Auswahl des 1. DropDowns abhängig sind
    5. Const SOURCE_CC2 As String = "Getränke02" ' Titel des 3. DropDowns
    6. Const DEPENDENCY_CC2 As String = "Menü02" ' Titel des 4. DropDowns, dessen Einträge
    7. ' von der Auswahl des 3. DropDowns abhängig sind
    9. Const SOURCE_CC3 As String = "Getränke03" ' Titel des 5. DropDowns
    10. Const DEPENDENCY_CC3 As String = "Menü03" ' Titel des 6. DropDowns, dessen Einträge
    11. ' von der Auswahl des 5. DropDowns abhängig sind
    15. ' stellt die Auflistung der abhängigen Einträge im 2. DropDown bereit
    16. ' Key: Eintrag im 1. DropDown
    17. ' Item: Liste der von Key abhängigen Einträge
    18. Dim dependentEntries As New Collection
    19. Private Sub initDependentEntries()
    20. If dependentEntries.Count = 0 Then
    21. dependentEntries.Add Key:="Wählen Sie ein Element aus.", Item:=Array("Wählen Sie ein Element aus.")
    22. dependentEntries.Add Key:="Wasser", Item:=Array("Gulasch")
    23. dependentEntries.Add Key:="Cola", Item:=Array("Gyros")
    24. dependentEntries.Add Key:="Saft", Item:=Array("Pizza")
    26. End If
    27. End Sub
    29. ' erneuert beim Verlassen des 1. DropDowns die Einträge des 2. DropDown
    30. ' in Abhängigkeit des im 1. DropDown gewählten Eintrags und zeigt den 1. Eintrag an
    31. Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
    32. '
    33. ' wenn 1. DropDown ("Getränke") verlassen wird...
    34. If ContentControl.Tag = SOURCE_CC Then
    35. '
    36. ' gewählten Eintrag aus 1. DropDown holen
    37. Dim selectedEntry As String: selectedEntry = ContentControl.Range.Text
    38. '
    39. ' 2. DropDown ("Menü") ermitteln, um es bearbeiten zu können
    40. Dim cc As ContentControl: Set cc = getCCbyTitle(DEPENDENCY_CC)
    41. If Not cc Is Nothing Then
    42. With cc
    43. '
    44. ' bisherige Einträge entfernen
    45. .DropdownListEntries.Clear
    46. '
    47. ' ggf. Einträge erstellen
    48. initDependentEntries
    49. '
    50. ' Einträge gem. Auswahl im 1. DropDown in 2. DropDown erstellen
    51. Dim entry
    52. For Each entry In dependentEntries(selectedEntry)
    53. .DropdownListEntries.Add entry
    54. Next
    55. '
    56. ' 1. Eintrag vorselektieren
    57. .DropdownListEntries(1).Select
    58. End With
    59. End If
    60. End If
    61. End Sub
    63. ' da ContentControls eigentlich nur über einen Index angesprochen werden können,
    64. ' ermittelt diese Hilfsfunktion ein ContentControl anhand seines Titels
    65. Private Function getCCbyTitle(ccTitle As String) As ContentControl
    66. '
    67. ' falls es ein ContentControl mit dem Titel nicht gibt, wird 'Nothing' zurückgegeben
    68. Set getCCbyTitle = Nothing
    69. '
    70. ' in allen ContentControls nach dem ContentControl mit dem angegebenen Titel suchen
    71. Dim cc As ContentControl
    72. For Each cc In ContentControls
    73. If cc.Title = ccTitle Then Set getCCbyTitle = cc
    74. Next
    75. End Function


    Topic verschoben, CodeTags gesetzt ~VaporiZed

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

Facebook
Telefonspende