Sub prüfen()
Dim Wks1 As Worksheet, Wks2 As Worksheet, Found As Object
Dim wkbrest As Worksheet, Found1 As Object
Set Wks1 = Sheets(1)
Set Wks2 = Sheets(2)
If Not IsEmpty(Wks2.Cells(2, 3)) Then
Set Found = Wks1.Columns(2).Find(Wks2.Cells(2, 3), LookIn:=xlValues, LookAt:=xlWhole)
If Found Is Nothing Then
Else
MsgBox "Achtung: Mindestens 1 Arbeitsschritt betrifft alle Artikel! Matchvorgang gestoppt, bitte manuell prüfen.", vbInformation, "Hinweis"
End If
For Each wkbrest In Worksheets
Next
If wkbrest.Index > 2 Then
Set Found1 = Wks2(Cells(2, 3).Find(wkbrest.Columns(4), LookIn:=xlValues, LookAt:=xlWhole))
If Found1 Is Nothing Then
Exit Sub
End If
End If
End If
End Sub