aus bestimmten wenigen Zellen Werte kopiert (automatisch!) und in andere Zellen
als Zahlen (in den Ursprungsfeldern stehen Formeln) einfügt.
1) geht das?
2) wie?
Sub zeitkopieren()
Do While Time <> "14.00.00"
If Time = "14.00.00" Then
Range("A1:A4").Copy
Range("B1:B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Exit Sub
End If
Loop
End Sub
Private Sub Workbook_Open()
'Immer 14:00
Application.OnTime TimeValue("14:00:00"), "Autocopy"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
'zurücksetzen
Application.OnTime EarliestTime:=TimeValue("14:00:00"), _
Procedure:="Autocopy", Schedule:=False
End Sub