Tabellenvergleich

Sub check_closed_main()
Dim WS1 As Worksheet: Set WS1 = Worksheets("Daily")
Dim WS2 As Worksheet: Set WS2 = Worksheets("Main Sheet")
Dim WS3 As Worksheet: Set WS3 = Worksheets("CLOSED")
Dim lngRow As Long
Application.ScreenUpdating = False
WS2.Unprotect "?"
For lngRow = 2 To WS3.Cells(Rows.Count, 6).End(xlUp).Row
If WorksheetFunction.CountIfs(WS2.Columns(6), WS3.Cells(lngRow, 6), WS2.Columns(7), WS3. _
Cells(lngRow, 7)) = 0 Then
WS2.Cells(lngRow, 7).EntireRow.Delete
End If
Next lngRow
WS2.Protect "?"
Application.ScreenUpdating = True
End Sub