AW: bei mehreren Blättern gleiche Daten in Zellen
26.03.2012 16:24:15
ChrisL
Hallo Marco
Dann Code nicht mehr unter "DieseArbeitsmappe" sondern einzeln bei den jeweiligen Tabellen einfügen:
Tabelle 1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
On Error Resume Next
Application.EnableEvents = False
Worksheets("Tabelle2").Range("A2") = Target
Worksheets("Tabelle3").Range("A3") = Target
Application.EnableEvents = True
End If
End Sub
Tabelle 2
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A2" Then
On Error Resume Next
Application.EnableEvents = False
Worksheets("Tabelle1").Range("A1") = Target
Worksheets("Tabelle3").Range("A3") = Target
Application.EnableEvents = True
End If
End Sub
Tabelle 3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A3" Then
On Error Resume Next
Application.EnableEvents = False
Worksheets("Tabelle1").Range("A1") = Target
Worksheets("Tabelle2").Range("A2") = Target
Application.EnableEvents = True
End If
End Sub
cu
Chris