Herbers Excel-Forum - das Archiv

Worksheet change

Bild

Betrifft: Worksheet change
von: Alwin Ball

Geschrieben am: 23.12.2006 19:56:30
Hallo Spezialisten,
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
Bild

Betrifft: AW: Worksheet change
von: Ali Mente
Geschrieben am: 23.12.2006 19:59:54
Hi,
das liegt daran, dass die Events disabelt sind, starte nach dem Zurücksetzen
dieses Makro:
Sub Hilfsmakro()
Application.EnableEvents = True
End Sub

mfg Ali
Bild

Betrifft: AW: Worksheet change
von: Alwin Ball

Geschrieben am: 23.12.2006 20:19:29
Super!!! Danke für die schnelle Antwort.
Na dann werd ich mich mal auf den Weg machen und das in eine Fehler-Routine einbauen.
Vieln Dank nochmals für die schnelle Antwort!
Gruß Alwin
 Bild
Excel-Beispiele zum Thema "Worksheet change"
Im Change-Ereignis Eingabe in oder Leeren von Zellen erkennen Makroverzweigung im Change-Ereignis
Beispiele zum Einsatz des SelectionChange-Ereignisses