Private Sub Suche()
 
 Dim Test(2) As Boolean
 
 Dim i As Integer
 
    i = 1
'die Drei Checkboxen werden ausgelesen und die werte in den Array Test 
' geschrieben    
    For i = 0 To 2
    Test(i) = ParameterAuslesen(i)
    Next i
 
End Sub

Public Function ParameterAuslesen(t As Integer) As Boolean
 
Dim Parameter(2) As Boolean
 
If t = 0 Then
 
    If ActiveSheet.OLEObjects("KKS").Object.Value = True Then
    'MsgBox Parameter(t)
    Parameter(t) = True
    'MsgBox Parameter(t)
    Else
    Parameter(t) = False
    End If
End If
 
If t = 1 Then
    If ActiveSheet.OLEObjects("nb").Object.Value = True Then
    'MsgBox Parameter(t)
    Parameter(t) = True
    'MsgBox Parameter(t)
    Else
    Parameter(t) = False
    End If
End If
 
If t = 2 Then
    If ActiveSheet.OLEObjects("Ethic").Object.Value = True Then
    'MsgBox Parameter(t)
    Parameter(t) = True
    'MsgBox Parameter(t)
    Else
    Parameter(t) = False
    End If
End If
 
ParameterAuslesen = Parameter(t)
 
End Function