Hallo,
die Prüfung an sich, ist doch kein Problem ...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Wert As Long
If Not Intersect(Target, Range("A1:A2")) Is Nothing Then
If Range("A1").Text <> "" And Range("A2").Text <> "" Then
Wert = Range("A1").Value * 100 + Range("A2").Value
If Wert >= 6704 And Wert <= 6710 Then
MsgBox "Falsche Werte"
End If
Else
Exit Sub
End If
End If
End Sub
Sabina
|