Gruppe
Ereignis
Bereich
Change
Thema
Prozentuale Erhöhung über mehrere Arbeitsblätter hinweg
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?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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