For i = 1 To ende Step 1
 
        For iv = 0 To UBound(picklist)
            If Cells(25 + i, 0 + j).Value = picklist(iv) Then gefunden = 1
            If Not Cells(19, j).Value = 1 Then 'Falls required = 1
                If Cells(25 + i, 0 + j).Value = "" Then gefunden = 1
            End If
        Next iv
 
    If Not gefunden = 1 Then
        Worksheets(1).Cells(25 + i, 0 + j).Interior.ColorIndex = 4
        BereitsGefüllt = True
        Anzahlfehler = Anzahlfehler + 1
 
    End If
 
    gefunden = 0
 
    Next i