das unten aufgeführte Macro läuft soweit ganz gut. Nun möchte ich es erreichen das der Kopierte Wert in diesem Fall D3 nach dem kopieren gelöscht wird. Irgendwie gelingt es mir nicht. Der Wert bleibt erhalten. Was kann ich tun.
MFG
ThomasB
ChDir "u:\Provisionen\VP´s Abrechnung\Übertrag"
Workbooks.Open Filename:= _
"U:\Provisionen\VP´s Abrechnung\Übertrag\Monatlicher Übertrag.xls"
If Range("D3") >= "0,00" Then
With wksZiel
.Range("H10").Value = Range("D3").Value
End With
End If
Windows("Monatlicher Übertrag.xls").Activate
Application.CutCopyMode = False
ActiveWindow.Close