Sub M_snb()
sn = Tabelle1.Cells(1, 4).CurrentRegion
sp = Tabelle2.Cells(1, 2).CurrentRegion
With CreateObject("scripting.dictionary")
For j = 1 To UBound(sp)
.Item(sp(j, 1)) = sp(j, 2)
Next
For j = 1 To UBound(sn)
If sn(j, 3) <= 0.1 Then
sn(j, 3) = .Item(sn(j, 1))
.Remove sn(j, 1)
End If
Next
End With
Tabelle3.Cells(1).Resize(UBound(sn), 3) = sn
End Sub