If Not cstrLinkedBox = "" Then
            'abhängige Box ermitteln
            For Each objComboBox In gcolComboBoxes
                'Wenn das ComboBox-Objekt noch existiert
                If objComboBox.ObjectDeleted = False Then
                    If objComboBox.Name = cstrLinkedBox And _
                        'Hier passiert der Fehler, Er scheint das 
                        ' Workbook-Objekt nicht zu finden, obwohl es da ist
                        objComboBox.Workbook.Name = cwrbWorkbook.Name And _
                        objComboBox.Worksheet.Name = cwrsWorksheet.Name Then
                        'Subset der abhängigen Box ändern
                        objComboBox.Subset = cstrSelectedItem
                        'abhängige Box erneut abfragen
                        objComboBox.GetItems
                    End If
                End If
            Next objComboBox
        End If