Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eintragungen im 1. Blatt in andere Blätter übernehmen

Gruppe

Change

Problem

Eintragungen in Spalte B des zweiten Tabellenblattes sollen in allen Blättern in Spalte E übernommen werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle9

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   Dim iWks As Integer
   If Target.Column <> 2 Then Exit Sub
   For iWks = Me.Index + 1 To Worksheets.Count
      Worksheets(iWks).Cells(Target.Row, 5) = Target.Value
   Next iWks
End Sub