Clever-Excel-Forum

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:




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

Danke für Tipps, Gruß

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

Spitze, Danke Uwe! :18: