Berechnung bei Worksheet_Change
15.01.2016 11:20:02
muehli
vorab hier mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
ZeileAuswahl = Selection.Row
Cells(ZeileAuswahl, 10).Value = Cells(ZeileAuswahl, 6).Value * Cells(ZeileAuswahl, 7).Value
End If
End Sub
-Ich wähle eine Zelle in Spalte 6
-Ändere ihren Wert zu beispielsweise "10"
Nun muss ja "bestätigt" (return) werden oder zumindest in eine andere Zelle geklickt werden, dass der Wert fest in die Zelle geschrieben wird.
-Jetzt soll automatisch in Cells(ZeileAuswahl, 10) der Wert der oben genannten Berechnung geschrieben werden.
Problem ist nun, dass sobald ich bestätige (return) oder in eine andere Zelle klicke, diese ja als neue "ZeileAuswahl" definiert wird und somit wird das Ergebnis in die falsche Zelle geschrieben.
Wenn möglich hätte ich es bei VBA belassen und nicht als Formel direkt in die Zelle, sonst kommt es später zu einem Zirkelbezug, denn der Benutzer hat später auch die Möglichkeit Cells(ZeileAuswahl, 10) einzugeben und bekommt Cells(ZeileAuswahl, 6) ausgerechnet (hoffe man kann das verstehen).
Wenn eine Beispielmappe helfen würde, werde ich diese gerne erstellen.
Wie kann man das besser bzw. richtig machen?
Freundliche Grüße und danke
Muehli