If objCC.Title = "n" Then
Else
sCCBmText = tblCurrTable.Cell(lgRow, i).Range.Bookmarks(1).Range.Text
If dictControls.Exists(objCC.Tag) = True Then
dictControls.Remove (objCC.Tag)
Debug.Print "Eintrag " & objCC.Tag & " wurde entfernt"
Debug.Print "Anzahl der Einträge: " & dictControls.Count
If dictControls.Count = 0 Then
Debug.Print "chkOptions: " & dictControls(objCC.Tag).Name, dictControls(objCC.Tag).Number
End If
End If
End If
Debug.Print vbCrLf & "Anzahl Items im Dictionary:", dictControls.Count
Debug.Print "Item: " & dictControls.Items(dictControls.Count)