Excel VBA Match 2 Zelle auf verschiedenen Blättern, wenn übereinstimmen, dann Blatt löschen

Question

Ich habe Blatt mit Namen LIST, und in Zelle K15 ist ein Wert. Was ich brauche, ist für Makro, alle anderen Blätter zu überprüfen, und wenn es Wert von (LISTE) - (K15) zu Zelle (B4) auf allen anderen Blättern in der Arbeitsmappe übereinstimmt, und es wird immer dieser Platz sein (B4). Wenn es Übereinstimmung findet, dann lösche dieses Blatt.

So ist es eine Art Match-Loop-Makro.

Bitte helfen Sie mir

Sub DeleteSheets01() 

Dim ws As Worksheet 
For Each ws In ActiveWorkbook.Worksheets 
    If Worksheets("LIST").Range("K15") = LenB(ActiveSheet.Range("B4")) Then ActiveSheet.Delete 
Next ws 
End Sub 

Answer 1

ich es

Sub DeleteSheets01() 

Application.DisplayAlerts = False 
Dim ws As Worksheet 
    For Each ws In ActiveWorkbook.Worksheets 
    If ws.Range("B4") = Worksheets("LIST").Range("K15") Then 
     ws.Delete 
    End If 
    Next ws 
Application.DisplayAlerts = True 
End Sub