Code anpassen für Wert übertrag aus Formel

206 Aufrufe
Gefragt 19, Jun 2017 in Anwendungen(Java,C++...) von momosommer
Wie muss ich die Formel anpassen, wenn es in der einten Spalte eine Formel hat, und ich dort in der zweiten Tabelle nur den Wert haben möchte.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Long
Set Target = Intersect(Target, Range("J5:J1000"))
If Target Is Nothing Then Exit Sub
If Target = "Done" Then
Zeile = Target.Row
Range(Cells(Zeile, 1), Cells(Zeile, 12)).Copy _
Destination:=Sheets("Erledigte").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End Sub

1 Antwort

0 Punkte
Beantwortet 19, Jun 2017 von m-o Profi (11,031 Punkte)
Hallo,

so sollte es funktionieren:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Long
Set Target = Intersect(Target, Range("J5:J1000"))
If Target Is Nothing Then Exit Sub
If Target = "Done" Then
Zeile = Target.Row
Range(Cells(Zeile, 1), Cells(Zeile, 12)).Copy
Worksheets("Erledigte").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Target.EntireRow.Delete
End If
End Sub


Gruß

M.O.
...