Private Sub Worksheet_Change(ByVal Target As Range
18.12.2017 16:23:47
Edwin
ich habe vermutlich ein ganz kleines Problem.
Sobald sich in den Feldern A9:D11 etwas ändert, soll eine ganze Latte an Aktionen ausgeführt werden. Das funktioniert soweit super und die Bearbeitungszeit ist soweit ok, wenn ich nur ein Feld ändere, denn dann wird mein Befehl "AktionAusführen" nur einmal ausgeführt
Aber manchmal ändere ich durch einen Makro 5 Felder aus A9:D11 gleichzeitig und somit wird der Befehl "AktionAusführen" 5x ausgeführt. Einmal würde aber reichen. Das kostet unnötig Rechenzeit.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A9:D11]) Is Nothing Then
AktionAusführen
End If
End Sub
LG
Edwin