Nach einer Zelleingabe eine andere Zelle fuellen
18.02.2004 11:26:26
Kai
ich möchte die beiden Teile miteinander in Funktion bringen. Leider funktioniert immer nur der erste Teil des Codes. Wenn ich also in C7 oder C8 eine Zahl größer 0 eingebe, so soll in C19 der Wert 0 erscheinen. Der Wert in C19 soll aber noch zu überschreiben gehen, da ich anschließend eine andere Zahl eingeben möchte, mit welcher eine weitere Berechnung erfolgt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C7")) Is Nothing Then Exit Sub
If Target.Value <> "0" Then
Target.Offset(12, 0) = "0"
End If
If Intersect(Target, Range("C8")) Is Nothing Then Exit Sub
If Target.Value <> "0" Then
Target.Offset(11, 0) = "0"
End If
End Sub
Wenn ich es so schreibe:
If Intersect(Target, Range("C7,C8")) Is Nothing Then Exit Sub
If Target.Value <> "0" Then
Target.Offset(12, 0) = "0"
End If
..dann rückt ja wegen Target.Offset (12,0) der Wert immer eine Zeile weiter runter,
(C7 zu C19, C8 zu C20) was aber nicht sein sollte!
Für eine Lösung bedanke ich mich im Voraus.
Kai