Brug af HVIS-funktionen

øhm... har du prøvet at optage en makro også derefter lave den om til den du gerne vil have.... går ud fra du gerne vil lave det med en makro....

A1  =HVIS($C1 = "X";"08:00";"")
B1  =HVIS($C1 = "X";"16:00";"")

Indsæt denne formel i B1: =HVIS(A1="X";0,3333333;"")
Og denne i C1: =HVIS(A1="X";0,6666666;"")

Formater celler som klokkeslæt.

kabbak-> I din løsning indsættes klokkeslæt som tekst.

Til gengæld kan hjeg ikke læse indenad :-(

Mine formler skulle naturligvis have været

I B1: =HVIS(C1="X";0,3333333;"")
I A1: =HVIS(C1="X";0,6666666;"")

Ikke hos mig, jeg kan regne på dem ?

Problemet er, at kolonnerne A og B normalt skal bruges til at indtaste tidspunktet for hvornår man er mødt (A) og hvornår man gik (B).

Eksempelvis:Celle A1: 08:00 og Celle B1: 17:00

Jeg vil nu lave en kolonne (fx C) hvor der kan sættes kryds hvis man har været syg eller holdt ferie. Et kryds i kolonne C skal medføre, at kolonne A og B automatisk udfyldes med timer svarende til en normal arbejdsdag.

Jeg troede, at det var mest hensigtsmæssigt at lave denne formel i kolonne D (sådan at A og B stadig er tomme og klar til at blive fyldt med klokkeslet).

Venligst
Thue

Du kan ikke med en HVIS formel udfylde andre celler, end den selve formlen står i.

Hmm - løsningen virker som den skal. Men det er lidt uhensigtsmæssigt, at alle tidscellerne er fyldt med formler, der skal slettes hvis bare men har haft en helt almindelig arbejdsdag.

Kan jeg løse det?

Jeg kan ikke få jkrons løsning til at virke, men kabbak's virker hos mig!

her er en automatisk, sættes i arkmodulet

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Value = "X" Then
Target.Offset(0, -2) = #8:00:00 AM#
Target.Offset(0, -1) = #4:00:00 PM#
End If
End Sub

Brug bare kabbaks :-)  Men min virker nu godt nok hos mig.

Du behøbver ikke at slette formlen. Bare skriv det rigtige oveni.

Ellers skal du nok igang med noget makroprogrammering.

Ps, formater cellene som klokkeslæt, ellers viser den engelsk tidsformat

Det har jeg sgu aldrig prøvet før - VBA kode!

kabbak - jeg går ud fra, at jeg bruger funktionen "VIS programkode" ved at højreklikke på fanebladet.

Jeg kan ikke få den til at virke...kan du?

Drop lige et svar forresten.

DET VIRKER SGU!!

Kan jeg sætte en ekstra linje ind så det er ligegyldigt om man bruger lille ellet stort X / x??

Og hvordan laver jeg tidsformateringen til dansk?

Target.Offset(0, -2) = #08:00#
Target.Offset(0, -1) = #16:00#

Virker ikke!

ja det er korrekt at bruger funktionen "VIS programkode" ved at højreklikke på fanebladet.

Kontroller at det er det rigtige ark

den virker kun hvis du ændrer værdien til et stoer X i C kolonnen, den tjekker kun nye indtastninger.

og et svar

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 then ' kolonne C
if  Target.Value = "X" or Target.Value = "x"Then
Target.Offset(0, -2) = #8:00:00 AM#
Target.Offset(0, -1) = #4:00:00 PM#
End If
end if
End Sub


Ps, formater cellene som klokkeslæt, ellers viser den engelsk tidsformat

kabbak-> Dette må være nemmere:

If Target.Column = 3 And UCase(Target.Value) = "X" Then

ok jkrons, du får det sidste ord ;-))

:-)

Rooock and rool kabbak - det er sgu et fedt lille script.

Lige til min forståelse:

I dit første udkast skrev du:
If Target.Column = 3 And Target.Value = "X" Then

I det andet:
If Target.Column = 3 then ' kolonne C
if  Target.Value = "X" or Target.Value = "x"Then

Spørgs¨målet er: HVorfor står det " 'kolonne C "??

Target.Column = 3

Column = 1 ( = A kolonnen)
Column = 2 ( = B kolonnen)
Column = 3 ( = C kolonnen)

osv.