Plausibilitätsprüfung mit Intersect
11.01.2018 11:04:49
Hans-Jürgen
ich betreibe momentan noch eine recht aufwändige Plausibilitätsprüfung in meinem Makro (beim Betätigen einer Schaltfläche wird erstmal geschaut, ob alles richtig ist)
Nun bin ich über den Codeschnipsel
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A3")) Is Nothing Then
MsgBox "Im Bereich A1:A3 wurde eine Zelle geändert!"
End If
End Sub
auf diese viel elegantere Art und Weise aufmerksam geworden und das funktioniert auch prima. Einziger Wermutstropfen: Dieses Signal kommt auch, wenn ein Makro diese Zellen ändert. Kann man irgendwo über einen Flag abfragen, ob gerade ein Makro läuft, damit man diese Meldung dann unterdrücken kann?
Vielen Dank und viele Grüße
Hans-Jürgen