Auf diesem Bild befindet sich die Frage.
Ich hab es auch schon soweit hinbekommen, dass A3 und A4 sich dementsprechend verändern.
Das einzige was mir nicht gelingt ist wenn ich in A1 einen anderen Wert reinsetze, dann reagiert A3 und A4 nicht automatisch auf den neuen Wert.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo CleanExit
If Not Intersect(Target, Range("A3:A4")) Is Nothing Then
Application.EnableEvents = False
If Target.Address = "$A$3" Then
Range("A4").Value = Target * Range("A1").Value
Else
Range("A3").Value = Target / Range("A1").Value
End If
CleanExit:
Application.EnableEvents = True
On Error GoTo 0
End If
End Sub
|