AW: Zellen in drei Blättern synchronisieren?
09.10.2003 08:30:08
WernerB.
Hallo Thomas,
die nachstehenden Makros gehören jeweils in das entsprechende Tabellenblatt-Modul (also nicht in ein normales Standard-Modul):
'1. In das Tabellenblatt-Modul "Tabelle1":
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
Worksheets("Tabelle2").Range("B2").Value = Target.Value
Worksheets("Tabelle3").Range("B3").Value = Target.Value
Application.EnableEvents = True
End Sub
'2. In das Tabellenblatt-Modul "Tabelle2":
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$B$2" Then Exit Sub
Application.EnableEvents = False
Worksheets("Tabelle1").Range("A1").Value = Target.Value
Worksheets("Tabelle3").Range("B3").Value = Target.Value
Application.EnableEvents = True
End Sub
'3. In das Tabellenblatt-Modul "Tabelle3":
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$B$3" Then Exit Sub
Application.EnableEvents = False
Worksheets("Tabelle1").Range("A1").Value = Target.Value
Worksheets("Tabelle2").Range("B2").Value = Target.Value
Application.EnableEvents = True
End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).