Zellen syncronisieren

[grasihuepfer]

Hi Leute,

ich möchte gern mehrere Zellen in unterschiedlich Gruppen syncronisieren:

Bsp.: a.  A1=B1=C1 und
        b.  C2=D2=E2

Es soll quasi so laufen, dass bei a die drei Zellen, sobald man einen Wert eingibt, syncronissiert werden. Bei b soll der gleiche Zusammenhang zwischen den drei Zellen bestehen.

Ein einfaches Makro habe ich schon:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A1:C1")) Is Nothing Then           
    On Error GoTo Errorhandler           
    Application.EnableEvents = False           
    Range("A1:C1").Value = Target.Value       
  End If
Errorhandler:       
  Application.EnableEvents = True   
End Sub

Wie bekomme ich aber jetzt das zweite Makro für b in die selbe Tabelle? 

Danke für Tipps, Gruß

[Kuwer]

Hallo,

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A1:C1")) Is Nothing Then
   On Error GoTo Errorhandler
   Application.EnableEvents = False
   Range("A1:C1").Value = Target.Value
 ElseIf Not Intersect(Target, Range("C2:E2")) Is Nothing Then
   On Error GoTo Errorhandler
   Application.EnableEvents = False
   Range("C2:E2").Value = Target.Value
 End If
Errorhandler:
 Application.EnableEvents = True
End Sub

Gruß Uwe

[grasihuepfer]

Spitze, Danke Uwe! :18: