Wenn in der Zelle E3:E40 ein Wert auftaucht der nicht einer Zahl entspricht, soll Ändern erscheinen.
Gruß Michael
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E3:E40")) Is Nothing Then
If Not IsNumeric(Target) Then Target = "Ändern!"
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E3:E40")) Is Nothing Then
Application.EnableEvents = False
If Not IsNumeric(Target) Then Target = "Ändern!"
Application.EnableEvents = True
End If
End Sub
Aslo ich habe das in XL2000 getestet da brauchte ich das nicht. Es funzte auch so.
Und getestet habe ich vorher auch:
MsgBox Application.EnableEvents gibt WAHR zurück
ich glaubte erst ab XL2007 löst das Worksheet_Change-Ereignis auch eine Neuberechnung(Calculate) aus
oder ist das in Office2003 auch schon so ?
oder verstehe ich was ganz falsch ?
Gruß Matthias