Excel VBA-Wörterbuch Entfernen von Elementen

Question

Ich habe das Problem, dass das Aufrufen der Remove-Methode für das Scripting.Dictionary-Objekt nicht funktioniert.

Dim temp As String 
Set dict = CreateObject("Scripting.Dictionary") 

dict .Add(2,"asd") 
dict .Add(3,"asd") 
dict .Add(4,"asd") 
dict .Add(5,"asd") 
dict .Add(6,"asd") 

For Each Key in dict.Keys 
    temp = Key 
    If(Key > 3) Then 
     dict.Remove(temp) 
    End If 
Next 

Die Ausführung dieses Codes ergibt die gleiche Anzahl von Elementen im Wörterbuch für mich.

Edit: Ich habe nur den Code geändert, um die tatsächliche Nutzung besser widerzuspiegeln. Wie sich herausstellt, ist hier die String-Konvertierung fehlerhaft. Nach dem Umwandeln des Schlüssels in eine Zeichenfolge kann das Wörterbuch die Werte nicht korrekt zuordnen. Leider hat es mir nicht geholfen, eine Lösung für das Problem zu finden.

Edit2: Das Key-Objekt selbst ist vom Typ Range. Die Zuweisung zu einer String-Variablen führt zu dem Problem, dass der Vergleich bei der Operation remove fehlschlägt. Ich habe versucht, Varianten als Alternative zu verwenden, aber der Key wird trotzdem in String umgewandelt.

Answer 1

Sub x() 

Dim dict As Scripting.Dictionary 
Dim i As Variant 

Set dict = New Scripting.Dictionary 

dict.Add 2, "asd" 
dict.Add 3, "asd" 
dict.Add 4, "asd" 
dict.Add 5, "asd" 
dict.Add 6, "asd" 

For Each i In dict.Keys() 
    if i>3 then dict.Remove i 
Next i 


End Sub 

Answer 2

Der Schlüssel ist der zweite Parameter ("asd"), nicht die Nummer, also entfernen Sie eigentlich nichts. Das Umkehren der Reihenfolge der Parameter beim Hinzufügen von itsms sollte funktionieren.