If-Anweisung nicht kompatibel mit Change-Event?
thomas
Mit dem Code unten möchte ich bei Änderungen in verschiedenen Zellen auf einem Blatt Makros wie unten ersichtlich aufrufen.
Das Makro funktioniert nicht. Kann man Events und If womöglich gar nicht kombinieren?
Besten Dank für Tipps!!
thomas
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F47:P48, C52:C57, C60:C68]) Is Nothing Then Exit Sub
Call Sheets("Grafdata").BE_BM
If Intersect(Target, [F80:P81, C85:C90, C93:C99, C101]) Is Nothing Then Exit Sub
Call Sheets("Grafdata").SollG_BM
If Intersect(Target, [F105, F113:P114,C118:C123,C126:C134]) Is Nothing Then Exit Sub
Call Sheets("Grafdata").SollR_BM
End Sub