Public Function Pruefe(Zelle1, Zelle2)
Application.Volatile (False)
Dim Erg
On Error Resume Next
Erg = Zelle1 * 100 + Zelle2
If Err.Number <> 0 Then Exit Function
If Erg >= 6704 And Erg <= 6710 Then MsgBox _
Zelle1.Address(0, 0) & "*100+ " & Zelle2.Address(0, 0) & " = 6704 bis 6710"
On Error GoTo 0
Pruefe = Erg
End Function
Bei den vielen zb's nehme ich lieber eine UDF
|