worksheet_change Prozedur zu groß
20.03.2019 10:35:44
Michel
ich hab das Problem bei worksheet Change das die Prozedur zu groß ist.
Mit der Prozedur möchte ich das nur ausgewählte Zellen berechnet werden,
da sehr viele Formeln in dem Blatt stehen.
Gibt es für mein Vorhaben auch einen anderen Code bei dem die Prozedur nicht meckert?
Anbei der Code:
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = ("$P$6") Then Range("O6,AD5:AF5,AD6:BD6").calculate
If Target.Address = ("$P$7") Then Range("O7,AD5:AF5,AD7:BD7").calculate
If Target.Address = ("$P$8") Then Range("O8,AD5:AF5,AD8:BD8").calculate
If Target.Address = ("$P$9") Then Range("O9,AD5:AF5,AD9:BD9").calculate
If Target.Address = ("$P$10") Then Range("O10,AD5:AF5,AD10:BD10").calculate
If Target.Address = ("$P$11") Then Range("O11,AD5:AF5,AD11:BD11").calculate
If Target.Address = ("$P$12") Then Range("O12,AD5:AF5,AD12:BD12").calculate
If Target.Address = ("$P$13") Then Range("O13,AD5:AF5,AD13:BD13").calculate
End Sub
Das ganze geht dann bis Zeile 2000 und das will Excel nicht
Danke schon mal
Gruß
Michel