Gruppe
Ereignis
Problem
Wie kann ich erreichen, daß sich alle Werte in mehreren Tabellen nach Eingabe einer Zahl in einer bestimmten Zelle prozentual um diese Zahl erhöhen?
ClassModule: Tabelle2
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iWks As Integer
If Target.Address <> "$E$1" Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Application.ScreenUpdating = False
Range("E1").Copy
For iWks = 2 To 5
Worksheets(iWks).Range("A1:D21").PasteSpecial _
Paste:=xlValues, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
Next iWks
Application.CutCopyMode = False
Range("A1").Select
Application.ScreenUpdating = True
End Sub