Worksheet change
23.12.2006 19:56:30
Alwin
ich habe hier ein Phänomen, welches ich mir nicht erklären kann:
Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Row > 28 Then
Application.EnableEvents = False
If Not IsNumeric(Target.Value) Then
Cells(Target.Row, 6).Value = ""
Exit Sub
End If
x = Cells(Target.Row, 2).Value * Cells(Target.Row, 5).Value
If x = 0 Then x = ""
Cells(Target.Row, 6).Value = x
Application.EnableEvents = True
End If
If Target.Column = 2 And Target.Row > 28 Then
Application.EnableEvents = False
If Not IsNumeric(Target.Value) Then
Cells(Target.Row, 6).Value = ""
Exit Sub
End If
x = Cells(Target.Row, 2).Value * Cells(Target.Row, 5).Value
If x = 0 Then x = ""
Cells(Target.Row, 6).Value = x
Application.EnableEvents = True
End If
End Sub
Die Sache läuft eigentlich recht gut. Wenn ich aber beim Testen und programmieren (wobei ich momentan noch bin) irgend ein Modul oder Makro mit zurücksetzen beende, muss ich jedesmal Excel neu starten, damit die WorksheetChange Sache wieder funktioniert. Diese Merkwürdigkeit habe ich an 2 unterschiedlichen Rechnern! Kann mir das nicht erklären. Ich möchte, dass auch ein wenig versierter User ohne Probleme das "Progrämmelchen" bedienen kann.
Danke im Voraus für die Unterstützung!!!
Gruß
Alwin