|
Hallo Zusammen,
ich möchte, dass in jeder Spalte ab Spalte C immer wieder folgende Rechnung durchgeführt wird: Eingegebener Wert multipliziert mit dem Wert aus Spalte B oder wenn nicht mit B2 multiplizierbar, 1,1 und weiter.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$C$2" Then Target = Target * 1.1
If Target.Address = "$C$3" Then Target = Target * 0.6
If Target.Address = "$C$4" Then Target = Target * 79
If Target.Address = "$C$5" Then Target = Target * 110.6
If Target.Address = "$C$6" Then Target = Target * 140
If Target.Address = "$C$7" Then Target = Target * 72
Application.EnableEvents = True
End Sub
Wenn ich es so mache:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$C$2" Then Target = Target * 1.1
If Target.Address = "$C$3" Then Target = Target * 0.6
If Target.Address = "$C$4" Then Target = Target * 79
If Target.Address = "$C$5" Then Target = Target * 110.6
If Target.Address = "$C$6" Then Target = Target * 140
If Target.Address = "$C$7" Then Target = Target * 72
If Target.Address = "$D$2" Then Target = Target * 1.1
If Target.Address = "$D$3" Then Target = Target * 0.6
If Target.Address = "$D$4" Then Target = Target * 79
If Target.Address = "$D$5" Then Target = Target * 110.6
If Target.Address = "$D$6" Then Target = Target * 140
If Target.Address = "$D$7" Then Target = Target * 72
Application.EnableEvents = True
End Sub
Dann ist es erstens zu viel Arbeit und zweitens, erhalte ich dann eine Fehlermeldung, dass zu viel Speicher verwendet wird.
Hat hier jemand eine Idee für mich? Mit Schleifen oder sonstigem?
Viele Grüße |