Gegenteil von If c Is Nothing Then

If c Is Not Nothing Then

With blatt.Columns(1)
Set c = .Find(zahl, LookIn:=xlValues, LookAt:=xlWhole, _
SearchDirection:=xlNext, MatchCase:=False)
If c Is "not" Nothing Then
blatt.Activate
ActiveWorkbook.Save
End If
"Nichts ausführen"
End With