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: