im folgenden Makro würde ich gerne in der Zeile, die mit "folgende Zeile" markiert ist, nicht dAuto schreiben, sondern das With-Objekt selbst nehmen, ohne es namentlich erwähnen zu müssen, so wie es in den Zeilen davor mit dem Punkt vor dem Add gemacht ist.
Sub TestFarbe()
Dim dAuto As Object
Set dAuto = CreateObject("Scripting.Dictionary")
With dAuto
.Add "Mercedes", "rot"
.Add "Audi", "blau"
'folgende Zeile
Call FarbeSetzen(dAuto, "BMW", "schwarz")
End With
Debug.Print "Farbe BMW: ", dAuto("BMW")
End Sub
Sub FarbeSetzen(Verzeichnis As Object, Marke As String, Farbe As String)
Verzeichnis(Marke) = Farbe
End Sub
Geht das?LG,
Franz