For i As Integer = 0 To Beschichtungen.Count - 1
 
                Dim zVariable As Integer = i
                Dim fCombination = (From Query In Combination Where _
                                   Query.Hst_Code_Schicht1.ToLower.Trim= _
Beschichtungen.Item(zVariable).Hst_Code_Schicht.ToLower.Trim).FirstOrDefault
                If Not fCombination Is Nothing Then
                    Beschichtungen.Item(i).Zeigen = fCombination.Lieferbarkeit
                End If
            Next