Rng1.Value = Rng2.Value * X.Value / Y.Value
Sub ()
If Not Intersect(Rng1, Target) Is Nothing Then 'falls Rng1 mit Daten gefüllt
Rng2.Value * X.Value / Y.Value = Rng1.Value 'werden Daten in Rng2 und Rnd3 kopiert
Rng3.Value * X.Value / Y.Value = Rng1.Value
End If
End Sub
Leider nein,
es ist auch glaube ich wichtig, in welcher Reihenfolge die stehen
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo errorcatcher
Dim X As Range
Dim Y As Range
Dim Z As Range
Dim A As Range
Dim B As Range
Dim C As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range
Set X = Range("E74:Q74")
Set Y = Range("E82:Q82")
Set Z = Range("E142:Q142")
Set A = Range("E144:Q144")
Set B = Range("E199:Q199")
Set C = Range("E203:Q203")
Set Rng1 = Range("E78:Q78")
Set Rng2 = Range("E143:Q143")
Set Rng3 = Range("E201:Q201")
If IsEmpty(Target) Then GoTo errorcatcher
If Not Intersect(Rng1, Target) Is Nothing Then
Rng2.Value * X.Value / Y.Value = Rng1.Value
Rng3.Value = Rng1.Value
End If
If Not Intersect(Rng2, Target) Is Nothing Then
Rng1.Value = Rng2.Value 'analog zu oben
Rng3.Value = Rng2.Value
End If
If Not Intersect(Rng3, Target) Is Nothing Then
Rng1.Value = Rng3.Value
Rng2.Value = Rng3.Value
End If
errorcatcher:
Application.EnableEvents = True
End Sub