Microsoft Excel

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