VBA Code
03.02.2023 02:12:37
Julius
I
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Union(Range("Mieterdaten!A1"), Range("Wasser!A1"), Range("NK_Abschlag!A1"))) Is Nothing Then Application.EnableEvents = False Dim changedCell As Range Set changedCell = Target If changedCell.Parent.Name = "Mieterdaten" Then Worksheets("Wasser").Range("A1").Value = changedCell.Value Worksheets("NK_Abschlag").Range("A1").Value = changedCell.Value ElseIf changedCell.Parent.Name = "Wasser" Then Worksheets("Mieterdaten").Range("A1").Value = changedCell.Value Worksheets("NK_Abschlag").Range("A1").Value = changedCell.Value Else Worksheets("Mieterdaten").Range("A1").Value = changedCell.Value Worksheets("Wasser").Range("A1").Value = changedCell.Value End If Application.EnableEvents = True End If End Sub