AW: Richtig, wichtig ist die Richtung! ;-)
02.02.2010 13:23:30
Chris
Anbei der ganze Code. Ziel: Falls ich in Rng1 oder Rng2 oder Rng3 einen Wert schreibe, soll dieser Wert verknüpft mit X, Y, Z usw. in die freien Rng kopiert werden. In meinem Beispiel wäre das:
Falls ich den Wert 10 in eine der Zellen von Rng1 schreibe, soll dieser Wert multipliziert mit der entsprechenden Zelle von X dividiert durch Y werden und dann die Zellen von Rng2 und Rng3 kopiert werden. Das Ganze muss ich dann auch noch analog für die anderen Rng machen (bisher nur die 1 Code-Zeile!)
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