415 Aufrufe
Gefragt in Anwendungen(Java,C++...) von
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 von m-o Profi (22.7k 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.
...