Fehlerprüfung per VBA
23.10.2006 10:50:45
Dennis
habe eine Prüfung in einer Tabelle die eine Msg-Box aktiviert.
Der wunsch das nach dem Bestätigen selbiger Box die Zelle mit dem Fehlerhaften Wert augewähltwird.
Weiter habe ich das Problem das nach dem Löschen des falschen Wertes die Box wieder erscheint und eigentlich sollte sie das nicht tun.
Sondern natürlich x und auch die leere Zelle akzeptieren.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [u1:u40]) Is Nothing Then
If Not Target = "x" Then
MsgBox "Sie können an dieser Stelle nur den Wert X verwenden !", vbOKOnly + vbQuestion
End If
End If
End Sub
Hoffe mir kann jemand weiterhelfen.
Vielen Dank im voraus
mfg
dennis