Das Element aus einem WÖRTERBUCH in VBA extrahieren

Question

Ich habe ein Wörterbuch erstellt, das den Blattnamen und seine Nummer speichert.

So wird der Code wie:

Sub SetDiction() 

Dim num as Excel.Range 
Dim wks As Excel.Worksheet 

For each wks in ThisWorkbook.Worksheets 
Set num = Nothing 
Set num = wks.Range("SheetNumber") 
If not(num is Nothing) Then 
rModule.rDictionary.Add:=num.Value Item:=wks 
End If 

Weiter End Sub

nun den wks Namen versuchen und in einem anderen worksheet.The Code zu setzen, es zu bekommen ist:

Sub GetSheet() 
Dim key as variant 

For each key in rModule.rDictionary.Keys 
With Sheet2 
    .Cells(2,1).Value = rModule.rDictionary.Item(key) 
End With 
End Sub 

Es gibt mir Anwendung definiert oder objektdefinierter Fehler. Kann jemand bitte helfen?

Answer 1

Ihr .Add Anruf syntaktisch falsch ist und Sie hinzufügen, den ganzen Arbeitsblatt auf das Wörterbuch, in dem vermutlich wollen Sie nur den benannten Bereich hinzufügen, ändern:

rDictionary.Add num.Value, num 

den Namen hinzuzufügen: