Formelergebnis als Wert in ander Zelle übertragen
11.08.2017 10:16:36
Erwin
ich bräuchte wieder einmal eure Hilfe:
in meiner Tabelle werden in Spalte A Daten eingegeben, in Spalte B diese dann mit einer Formel bearbeitet und in Spalte C soll dann das Formelergebnis automatisch als fester Wert übertragen werden. Habe mir folgenden Code zusammengestellt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zeile As Long
Dim cell As Range
For Each cell In Target.Cells
If cell.Column = 2 Then
zeile = cell.Row
If IsEmpty(cell) = False Then
Application.ActiveSheet.Cells(zeile, 3) = cell.Value
End If
End If
Next cell
End Sub
Probleme:
1.
Das automatische Übertragen in Spalte C funktioniert aber nicht. Ich muss immer erst das Formelergenis in Spalte B (das sofort nach Eingabe in Spalte A erscheint) löschen und die Formel von der darüberliegenden Zelle nach unten kopieren, dann wird das Ergebnis in Spalte C auch eingetragen. Es sollte aber sofort, wenn in der Zelle der Spalte B ein Ergebnis steht, übernommen werden.
2.
Wenn ich einen Wert in Spalte A lösche, ist die entsprechende Zelle in Spalte B auch wieder leer, nur der übertragen feste Wert in Spalte C bleibt stehen. Der soll aber, wenn Spalte B leer ist, eigenlich auch wieder weg sein.
Kann mir jemand bei den 2 Problemen helfen.
Wäre super, vielen Dank schon mal im voraus.
Schöne Grüße
Erwin
Anzeige