Indsætte tidsstempel ved siden af indtastet værdi
Bruger Excel 2013Ved hjælp af nedenstående kode, skal jeg indtaste en værdi i celle A2, før række 2 sendes til et andet ark for viderebehandling.
Sub IndtastMaaling()
Dim vInput
Dim bTal As Boolean
On Error GoTo ErrorHandle:
'Denne inputboks popper op,til brugeren skriver en talværdi.
Do Until bTal = True
vInput = InputBox("Indtast din måling:")
If IsNumeric(vInput) Then bTal = True
Loop
'Overfører tallet til celle A2
Range("A2").Value = vInput
Exit Sub
ErrorHandle:
MsgBox Err.Description & " Procedure IndtastMaaling"
End Sub
Nu vil jeg gerne have at der ved overførsel til A2, samtidig sættes et klokkeslet - Now() ? i celle B2, før hele rækken sendes til andet ark, hvor tidspunktet så skal bruges til x_akse i et diagram.
Kan det lade sig gøre?
