Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Prozentuale Erhöhung über mehrere Arbeitsblätter hinweg
Gruppe
Change
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