Werte automatisch eintragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column > 2 Then Exit Sub If Cells(Target.Row, 1).Value <> 5 Then Exit Sub If Cells(Target.Row, 2).Value > 6 Then Cells(Target.Row, 3).Value = 9 End If End Sub

Hallo Matti,
für dieses Makro interessieren ja nur Eingaben in Spalte A oder B. Die Zeile beendet das Makro sofort wieder, wenn Eingaben in anderen Spalten gemacht werden. Das ist für dieses Makro vielleicht noch vernachlässigbar. Aber stell dir mal vor, eine Eingabe in einer bestimmten Zelle soll ein Makro mit umfangreicheren Aktionen auslösen. Im schlimmsten Fall werden dadurch irgendwo unbemerkt Daten verändert. Und selbst im besten Fall steigt das Makro mit einer Fehlermeldung aus oder wird, ohne dass es zu Datenänderungen kommt, jedesmal komplett abgearbeitet, was viel Zeit in Anspruch nehmen kann. Beides ist zumindest lästig und ärgerlich. Im ersten Fall ist es sogar brandgefährlich.
Gruß Ingolf

Private Sub Worksheet_Change(ByVal Target As Range) If Cells(Target.Row, 1).Value = 5 Then If Cells(Target.Row, 2).Value > 6 Then Cells(Target.Row, 3).Value = 9 End If End If If Cells(Target.Row, 3).Value = 9 Then If Cells(Target.Row, 4).Value = 6 Then Cells(Target.Row, 5).Value = 9 End If End If End Sub

Hallo Matti,
das Problem ist, dass sich das Makro bei einem Zelleintrag selbst immer wieder aufruft, noch bevor es ganz abgearbeitet ist ("Excel hängt sich daran auf").
In solchen Fällen kann man die Ereignissteuerung ausschalten; man sollte aber peinlichst darauf achten, dass sie danach auch wieder eingeschaltet wird.
Solange die Ereignissteuerung ausgeschaltet ist, kann sich das Makro nicht selbst wieder aufrufen; auch alle anderen ereignisgesteuerten Makros funktionieren dann nicht mehr!


Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, 1).Value = 5 Then
If Cells(Target.Row, 2).Value > 6 Then
Application.EnableEvents = False  'Ereignis AUS
Cells(Target.Row, 3).Value = 9
Application.EnableEvents = True   'Ereignis EIN
End If
End If
If Cells(Target.Row, 3).Value = 9 Then
If Cells(Target.Row, 4).Value = 6 Then
Application.EnableEvents = False  'Ereignis AUS
Cells(Target.Row, 5).Value = 9
Application.EnableEvents = True   'Ereignis EIN
End If
End If
End Sub

Gruß
WernerB.

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread