Option Explicit
Public myDict As Scripting.Dictionary    
 
Public Sub myDictCreate()
 Set myDict = New Scripting.Dictionary
End Sub
 
Function testErzeugeELUebersichtInDic()
Dim myArray As Variant
 
myArray =Array(“Test“,“Burger“,“Käsebrot“,“Simulator“)
 
myDictCreate
 
    Dim tmpVar(1 To 8) As Variant
    Dim txC   As Integer
 
For i = 0 To UBound(myArray) - 1
    If myDict.Exists(myArray(i)) = False Then
       myDict.Add myArray(i), myArray(i)   ' Key = Item (?)
            tmpVar (1) = True        ' C heckBox   Wahr / Falsch
            tmpVar (2) =“egal“
            tmpVar (…) = 99 
 
	myDict(myArray(i)) = tmpVar
    End If
End Function

Private Sub lvwEL_ItemCheck(ByVal item As MSComctlLib.ListItem)
Stop
If myDict.Exists(CStr(item)) = True Then
     myDict.item(CStr(item))(1) = item.Checked	'klappt aber leider nicht?!
         Debug.Print "Einzellizenz  : " & CStr(item)
         Debug.Print "Checkbox      : " & myDict.item(CStr(item))(1)
         'klappt aber leider nicht?! = steht immer True ...
End If
.. .