Dim i As Integer
Dim a As Integer
Dim eins As String
Dim zwei As String
Dim drei As String
Dim vier As String
Dim fünf As String
Dim sechs As String
 
For i = "0" To MSFlexGrid1.Rows
 
eins = MSFlexGrid1.TextMatrix(i, 1)
zwei = MSFlexGrid1.TextMatrix(i, 2)
drei = MSFlexGrid1.TextMatrix(i, 3)
vier = MSFlexGrid1.TextMatrix(i, 4)
fünf = MSFlexGrid1.TextMatrix(i, 5)
sechs = MSFlexGrid1.TextMatrix(i, 6)
a = a + 1
 
For a = "0" To (MSFlexGrid1.Rows - 1)
If eins = MSFlexGrid1.TextMatrix(a, 1) Then
If zwei = MSFlexGrid1.TextMatrix(a, 2) Then
If drei = MSFlexGrid1.TextMatrix(a, 3) Then
If vier = MSFlexGrid1.TextMatrix(a, 4) Then
If fünf = MSFlexGrid1.TextMatrix(a, 5) Then
If sechs = MSFlexGrid1.TextMatrix(a, 6) Then
MSFlexGrid1.RemoveItem (a - 1)
Else
End If
End If
End If
End If
End If
End If
Next a
Next i