MFG
Willy
Private Sub Worksheet_Change
(ByVal Target As Range)
Datum = Date
If Datum End Sub
Gruß
J.- M.
If Cells(1, 1) = DateTime.Now Then
Worksheets("Tabelle1").Range("b10").Copy
With Worksheets("Tabelle1").Range("E3")
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
End If
Gruss Hary