Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketindsætte tidspunkt

 Besvar Besvar
Forfatter
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
Direkte link til dette indlæg Emne: indsætte tidspunkt
    Sendt: 25.Nov.2017 kl. 17:57
Hej

jeg behøver hjælp til at få arket til at indsætte et tidspunkt når man har indtastet en værdi i en celle
feks. i cellen c3 så skal den i d3 indsætte tidspunktet nu() kun kl.

der skal bruges op til 14* 2 kolonner men minimum 4*2 (c-d, e-f, g-h, i-j)

men det skal jo ikke ændre sig næste gang man åbner arket.

det kan godt det skal laves i VBA makro

er det muligt ?
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top



Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 25.Nov.2017 kl. 19:24
I arkets kodemodul (højreklik på fane, vis programkode) indsæt koden der

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C3:C20, E3:E20,G3:G20,I3:I20")) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Format(Time, "hh:mm:ss")
End Sub
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
Direkte link til dette indlæg Sendt: 25.Nov.2017 kl. 22:57
takker det var lige det jeg ledte efter, det virker bare....Thumbs Up
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
Direkte link til dette indlæg Sendt: 26.Nov.2017 kl. 16:02
uploads/397/ny_BHDiabKdrf_ver_.0.00.04.xlsm

nu har jeg bare det problem at hvis man sletter værdien skal den også slette klokkeslettet
har rodet lidt med roden men har ikke kunnet få det at virke.

det er på arket 1 (2)

Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
Direkte link til dette indlæg Sendt: 26.Nov.2017 kl. 17:07
uploads/397/ny_BHDiabKdrf_ver_.0.00.04.xlsm

nu har jeg bare det problem at hvis man sletter værdien skal den også slette klokkeslettet
har rodet lidt med roden men har ikke kunnet få det til at virke.

det er på arket 1 (2)

Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
Direkte link til dette indlæg Sendt: 26.Nov.2017 kl. 20:11
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C19:C36, E19:E36,G19:G36,I19:I36")) Is Nothing Then Exit Sub
If Target = "" Then Target.Offset(0, 1) = "": Exit Sub
Target.Offset(0, 1) = Format(Time, "hh:mm")
End Sub
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5585
Direkte link til dette indlæg Sendt: 26.Nov.2017 kl. 21:07
Takker endnu en gang.Handshake
jeg kan se at jeg var lige ved at have den selv men kunne ikke få den til at virkeWacko
jeg prøvede at bygge den ny if sætning ind den anden if sætningGeek
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
excelent Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 12.Apr.2011
Land: DK
Status: Offline
Point: 2171
Direkte link til dette indlæg Sendt: 26.Nov.2017 kl. 22:21
Den lå heller ikke lige til højrebenet :-)
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk