Zeilen und Spalten synchronisieren
22.10.2015 17:19:21
Joe
ich bin verzweifelt auf der Suche nach einer Lösung um den bestehenden Synchronisationsbereich zu erweitern.
Bis jetzt beschränkt der Bereich sich nur auf eine Zeile (A1:A20) in zwei Registern. Jetzt würde ich den Bereich gerne so erweitern, dass er A1:F20 umfasst.
Tabelle 1:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Application.Intersect(Target, Range("A1:A20")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Worksheets("Tabelle1").Cells(Target.Row, 1).Value = Target.Value
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Application.Intersect(Target, Range("A1:A20")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Worksheets("Tabelle1").Cells(Target.Row, 1).Value = Target.Value
Application.EnableEvents = True
End Sub