Gruppe
Ereignis
Problem
Eintragungen in Spalte B des zweiten Tabellenblattes sollen in allen Blättern in Spalte E übernommen werden.
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