Dictionary an UserForm übergeben

[tim_]

Hallo zusammen,

leider stoße ich gerade an eine (für mich) sehr zeitfressende Grenze.

In meinem Projekt wird auf Tabelle 2 ("Übersicht") ein Dictionary (projectlist) erstellt und gefüllt.
Den Inhalt des Dictionary's (Keys & Values) möchte ich in einer Listbox auf einem UserForm anzeigen lassen.

Da das UserForm aber in der Ordnerstruktur im Ordner Formulare liegt brauche ich eine Möglichkeit die Daten oder das gesamte Dictionary zu übergeben.

Wäre super, wenn mir jemand weiterhelfen kann  

[Klaus-Dieter]

Hallo Tim,

eine Beispieldatei hilft helfen.

[Elex]

Hi

Gibt mehrere Möglichkeiten. 
Suche mal nach "VBA Öffentliche Variablen" oder "VBA Parameterübergabe"

Gruß Elex

[snb]

Code:

Private Sub Userform_initialize()
  sn = Cells(1).CurrentRegion
 
  With CreateObject("scripting.dictionary")
        For j = 1 To UBound(sn)
          .Item(sn(j, 1)) = sn(j, 1) & "_"
        Next
       
        ListBox1.ColumnCount = 2
        ListBox1.List = Application.Transpose(Array(.keys, .items))
  End With
End Sub

[steve1da]

Zur info…
https://www.herber.de/forum/archiv/1892t...geben.html