Hallo,
hier ein Beispiel, wie man so etwas lösen kann:
Sub vergleich()
Dim i As Integer
Dim bTrue As Boolean
'Bereich +/-1 von Wert aus A1 prüfen
For i = Range("A1").Value - 1 To Range("A1").Value + 1
If i = Range("B1").Value + Range("B2").Value Then
bTrue = True
Exit For
End If
Next i
'Ausgabe Messagebox
If bTrue = True Then
MsgBox "Alles Ok!", 48, "Prüfung erfolgreich"
Else
MsgBox "Nicht OK!", 16, "Prüfung fehlgeschlagen"
End If
End Sub
Oder nur mit Messagebox bei erfolgreichem Vergleich:
Sub vergleich2()
Dim i As Integer
'Bereich +/-1 von Wert aus A1 prüfen
For i = Range("A1").Value - 1 To Range("A1").Value + 1
If i = Range("B1").Value + Range("B2").Value Then
MsgBox "Alles Ok!", 48, "Prüfung erfolgreich"
Exit For
End If
Next i
End Sub
Gruß
M.O.