Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mehrere Zellen synchronisieren; Makroerweiterung

mehrere Zellen synchronisieren; Makroerweiterung
09.10.2003 13:14:53
Thomas
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

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

Betreff
Datum
Anwender
Anzeige
AW: mehrere Zellen synchronisieren; Makroerweiterung
09.10.2003 13:55:39
xXx
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!
Anzeige
AW: mehrere Zellen synchronisieren; Makroerweiterung
09.10.2003 21:34:33
Thomas
Vielen Dank, klappt!!

Gruss, Thomas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige