Højreklik på fanebladet og vælg "Vis programkode" og indsæt følgende kode
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column >= 1 And Target.Column <= 3 Then Range("D" & Target.Row) = Now() End If
End Sub
NB! Funktionen forudsætter at de tre celler, der kan ændres står i kolonne A, B og C og at datocellen står i kolonne D. Hvis det ikke er korrekt, må du selvfølgelig lige rette udtrykkene til.
Jeg er ikke lige helt klar over, hvad det er du er usikker på, så du må undskylde hvis det bliver for basalt.
Nederst i dit regneark er et (eller flere) faneblade, som du kan bruge til at vælge mellem regneark og diagrammer i din fil. Det er det faneblad som du aktuelt bruger, som du skal højreklikke på, og i den menu der fremkommer, skal du vælge punktet "Vis programkode". I det vindue der dukker op (som er en VBA editor), skal du i det hvide område indsætte den kode som jeg skrev ovenfor (du kan bare kopiere den direkte herfra)
Er ikke helt sikker, men prøv at ændre din funktion til:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column >= 1 And Target.Column <= 3 Then Range("D" & Target.Row) = Now() Set objWSH = CreateObject("WScript.Network") Range("E" & Target.Row) = objWSH.UserName Set objWSH = Nothing End If
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.