Søg
Avatar billede qln Juniormester
21. december 2005 - 14:58 Der er 6 kommentarer og
1 løsning

Indsætning af dato

Jeg har et ark med et navn pr. række. I hver række skal man opdatere forskellige ting ud for hvert navn. Hver gang der bliver opdateret noget i en bestemt række, vil jeg gerne angive datoen for denne opdatering ud for navnet i denne række.
Det kan fx se ud på denne måde:
A1: navn
A2: opdateringsdato
A3-A7: felter, der kan opdateres i

Jeg vil altså kunne følge med i, hvornår hvert navn (person) opdaterer sine felter.
Avatar billede jkrons Professor
21. december 2005 - 17:00 #1
Prøv at lægge denne kode i arkets modul:

Private Sub Worksheet_Change(ByVal Target As Range)
    Range(Mid(ActiveCell.Address, 2, InStrRev(ActiveCell.Address, "$") - 1) & 2).Value = Date
End Sub
Avatar billede qln Juniormester
22. december 2005 - 09:43 #2
Jeg kom til at angive de forkerte felter. Alle felterne er selvfølgelig i en række, så det i stedet bliver:
A1: navn
B1: opdateringsdato
C1-G1: felter, der kan opdateres i

Hvordan kommer koden så til at se ud?
Avatar billede jkrons Professor
22. december 2005 - 10:01 #3
Prøv med

Private Sub Worksheet_Change(ByVal Target As Range)
        Range("B" & Mid(Target.Address, Len(Target.Address), InStrRev(Target.Address, "$"))).Value = Date
End Sub
Avatar billede kabbak Professor
22. december 2005 - 11:40 #4
smid denne i arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A,C:G")) Is Nothing Then
        Range("B" & Target.Row).Value = Now
  End If
End Sub
Avatar billede kabbak Professor
22. december 2005 - 11:45 #5
bemærk at koden gælder for hele kolonner

hvis den kun skal gælde for en bestemt antal rækker, så kan den se sådan ud

Private Sub Worksheet_Change(ByVal Target As Range)
X = 1000 ' antal rækker
If Not Intersect(Target, Range("A1:A" & X & ",C1:G" & X)) Is Nothing Then
        Range("B" & Target.Row).Value = Now
  End If
End Sub
Avatar billede qln Juniormester
22. december 2005 - 13:20 #6
Super Kabbak!
Send et svar.
Avatar billede kabbak Professor
22. december 2005 - 14:02 #7
et svar ;-))
Avatar billede 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.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre tal i en celle Af xvid i Excel 1 I går 16:05 I går 16:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 I går 02:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 16 17/08/202615:14 27/08/202601:20
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
IT-JOB
Seneste spørgsmål Seneste aktivitet
I går 18:50 Slet lokal konto Af ErikHg i Windows
I går 16:05 Ændre tal i en celle Af xvid i Excel
I går 13:47 Dette er ikke en kommerciel session i Windows 11 Af eksmojo i Windows
31/0810:26 Synkronisering af kalender mellem computer, android telefon og iPhone Af Strawberry i Andre onlineløsninger
31/0810:24 Kan Excel selv beregne alder? Af leahcim i Excel
White papers
Flere white papers »