oder:

Sub M_snb()
   sn = Sheets("inventar").Cells(1).CurrentRegion
   sp = Sheets("prüfliste").Cells(1).CurrentRegion
   Set d_01 = CreateObject("scripting.dictionary")
   
   With CreateObject("scripting.dictionary")
     For j = 2 To UBound(sn)
        x0 = .Item(sn(j, 4))
     Next
     
     For j = 2 To UBound(sp)
        If .exists(sp(j, 2)) Then d_01.Item(sp(j, 1)) = Array(sp(j, 1), Format(Now, "DD.MM.YYYY HH:MM"), "bydo@vba.ms", "bydo")
     Next
   End With
   
   If d_01.Count > 0 Then Sheets("ausgabe").Cells(2, 1).Resize(d_01.Count, 4) = Application.Index(d_01.items, 0, 0)
End Sub