mehrere Zellen synchronisieren; Makroerweiterung

Hallo,
Habe folgendes Makro (von WernerB) für Synchronisation von Zellen in drei Blättern meinen Bed. angepasst; funktioniert bestens. Nun möchte ich aber das Makro noch so erweitern, das jeweils in Tab.1 A1 bis A3, in Tab.2 B1 bis B3 und in Tab.3 C1 bis C3 abgeglichen werden.
In Modul von Tab.1 steht:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
Worksheets("Tabelle2").Range("B1").Value = Target.Value
Worksheets("Tabelle3").Range("C1").Value = Target.Value
Application.EnableEvents = True
End Sub

In Modul von Tab.2 steht:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$B$1" Then Exit Sub
Application.EnableEvents = False
Worksheets("Tabelle1").Range("A1").Value = Target.Value
Worksheets("Tabelle3").Range("C1").Value = Target.Value
Application.EnableEvents = True
End Sub

In Modul von Tab. 3 steht:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$C$1" Then Exit Sub
Application.EnableEvents = False
Worksheets("Tabelle1").Range("A1").Value = Target.Value
Worksheets("Tabelle2").Range("B1").Value = Target.Value
Application.EnableEvents = True
End Sub

Danke für Hilfe

Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Application.Intersect(Target, Range("A1:A3")) Is Nothing Then Exit Sub Application.EnableEvents = False Worksheets("Tabelle2").Cells(Target.Row, 2).Value = Target.Value Worksheets("Tabelle3").Cells(Target.Row, 3).Value = Target.Value Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Application.Intersect(Target, Range("B1:B3")) Is Nothing Then Exit Sub Application.EnableEvents = False Worksheets("Tabelle1").Cells(Target.Row, 1).Value = Target.Value Worksheets("Tabelle3").Cells(Target.Row, 3).Value = Target.Value Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Application.Intersect(Target, Range("C1:C3")) Is Nothing Then Exit Sub Application.EnableEvents = False Worksheets("Tabelle1").Cells(Target.Row, 1).Value = Target.Value Worksheets("Tabelle2").Cells(Target.Row, 2).Value = Target.Value Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

mehrere Zellen synchronisieren; Makroerweiterung

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread