VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Prozentuale Erhöhung über mehrere Arbeitsblätter hinweg

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change