mehrere Zellen synchronisieren; Makroerweiterung

Bild

Betrifft: mehrere Zellen synchronisieren; Makroerweiterung
von: Thomas
Geschrieben am: 09.10.2003 13:14:53

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
Bild


Betrifft: AW: mehrere Zellen synchronisieren; Makroerweiterung
von: xXx
Geschrieben am: 09.10.2003 13:55:39

Hallo,
hier die Anpassung:
'Tab1

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

'Tab2

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

'Tab3

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

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!


Bild


Betrifft: AW: mehrere Zellen synchronisieren; Makroerweiterung
von: Thomas
Geschrieben am: 09.10.2003 21:34:33

Vielen Dank, klappt!!

Gruss, Thomas


 Bild

Beiträge aus den Excel-Beispielen zum Thema " mehrere Zellen synchronisieren; Makroerweiterung"