Gibt es eine Find-Methode bei VBA Dictionarys?

  • Excel

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Mono.

    Gibt es eine Find-Methode bei VBA Dictionarys?

    Hi Leute,

    ich benutze ein VBA-Dictionary. Ich muss nun in diesem Dictionary nach bestimmten Key-Value-Pairs suchen. Da ich keine Methode gefunden habe, die einem "Find" gleichkommt und ich zwei verschachtelte for-Schleifen als sehr träge finde, hoffe ich, dass mir jemand weiter helfen kann.

    Mein Problem gestaltet sich dermaßen:

    Pseudocode:

    Visual Basic-Quellcode

    1. Dim myDict1 as dict
    2. Dim myDict2 as dict
    4. for i to end myDict1
    5. for j to end myDict2
    6. Set myDict1 = myDict1.Items(i)
    7. Set myDict2 = myDict2.Items(j)
    9. If myDict1.Keys(i) = myDict2.Keys(j
    10. 'blabla
    11. End If


    Das ist quasi das was ich eigentlich vorhabe. Nun weiß ich aber, dass verschachtelte Schleife langsam sind. Gibt es eine schnellere Find-Methode?

    Visual Basic-Quellcode

    1. ​
    2. Option Explicit
    3. Sub comp()
    4. Dim myDict1 As New Dictionary
    5. Dim a As Long
    6. Dim myDict2 As New Dictionary
    7. Dim itm As Variant
    8. For a = 0 To 2000
    9. myDict1.Add a, CStr(a)
    10. myDict2.Add a + 1990, CStr(a + 1990)
    11. Next
    12. For Each itm In myDict1.keys
    13. If myDict2.Exists(itm) Then
    14. Debug.Print ("Existiert in beiden Dictionarys: " & itm)
    15. End If
    16. Next
    17. End Sub
    Das ist meine Signatur und sie wird wunderbar sein!