CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

CharlotteChristensen Novice

19. september 2017 - 15:32 Der er 5 kommentarer

Dato og klokkeslæt når en given celle ændres?

Jeg har en checkliste hvor det er vigtigt at se hvad tid på dagen den enkelte opgave er opdateret. Derfor har jeg i cellerne lavet følgende funktion:

=if(L5="";"";Now())

Det giver mig dato og klokkeslæt prcist som ønsket. MEN jeg har 30 punkter på min checkliste, og arket ændrer nu ALLE dater og klokkeslæt hver gang jeg ændrer i en enkelt celle, og ikke kun den tilhørende (jeg har tjekket at der ikke står L5 i alle formlerne, men netop den korrekte celle..)

Hvad gør jeg forkert?

På forhånd mange tak.

Venlig hilsen
Charlotte

Synes godt om

jens48 Ekspert

19. september 2017 - 15:50 #1

Det kan kun lade sig gøre med VBA. Nedenstående makro skriver tidspunktet for redigeringen af cellen ind i cellen til højre for den redigerede celle. Den er kun aktiv i kolonne A, men det kan ændres i anden linje.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Target.Offset(, 1) = Now()
End If
End Sub

Synes godt om

2 synes godt om dette

Mads32 Ekspert

19. september 2017 - 15:52 #2

Hej

NOW() er en dynamisk funktion der værdien i alle de celler hvor NOW() indgår..

Hvis du vil fastholde den værdien er du nødt til at kopierer cellen til sig selv som VÆRDI.

Lav en lille makro der gør det for dig.

Synes godt om

1 synes godt om dette

jka Juniormester

17. marts 2021 - 08:52 #3

Kan man udvide denne VBA kode, således at dato indsættes, når der indsættes en bestemt værdi/tekst i kolonne A?

Ex. kolonne A = Status

Mulige værdier:
Fase 1
Fase 2
Fase 3
...
Færdig

Når kolonne A ændres til "Færdig", indsættes dato

Synes godt om

jens48 Ekspert

17. marts 2021 - 11:03 #4

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target = "Færdig" Then Target.Offset(, 1) = Now()
End If
End Sub

Synes godt om

1 synes godt om dette

jka Juniormester

18. marts 2021 - 08:39 #5

Tusinde tak for det hurtige svar :)

Det virker perfekt :)

Synes godt om

Ny bruger Nybegynder

Din løsning...

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Betinget formatering - Ingen formatering hvis søgefeltet er tomt. Af Laugesen1 i Excel	0	5 minutter siden	-
En formel som kan regne minutter om til timer... Af Oswald1 i Excel	3	21/01/202512:02	21/01/202512:52
Fejl meddelelse i excel 365 Af boro23 i Excel	5	21/01/202508:57	I går 06:59
Meddelelse ved dubblering af indhold Af h_s i Excel	3	20/01/202511:53	20/01/202514:37
Kæder til områder Af jetpet88 i Excel	1	20/01/202509:11	20/01/202509:38

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS