Formular i excel

I celle C6 skriver du følgende:
=hvis(i6=1;8;\"\")

i celle D6 skriver du følgende:
=hvis(i6=1;16;\"\")

Begge celler skal du formatere til at vise tid (er det ikke det du vil ? )

hvis 8:00 og 16:00 blot er tekst, så skal det være således:
I celle C6 skriver du følgende:
=hvis(i6=1;\"8:00\";\"\")

i celle D6 skriver du følgende:
=hvis(i6=1;\"16:00\";\"\")

Næsten som jeg vil have det.
men formelen skal stå i en celle for sig,
Så cellen C6 står der kun tiden og ikke formelen.
For der skal kunne vælges flerer tidpunkter?

Thomas

Hvis du vil have en formel til at give et resultat i celle C6, så SKAL formlen stå der.

Hvilke andre muligheder ønsker du formlen skal kunne tage højde for ?

I celle I6 skal muligheden for talne 1-8 værer der og
Hvis I6=1 skriv 8:00 i celle C6 og skriv 16:00 i celle D6
Hvis I6=2 skriv 8:00 i celle C6 og skriv 15:00 i celle D6
Hvis I6=3 skriv 16:00 i celle C6 og skriv 00:00 i celle D6
O.S.V

Thomas

I celle C6 skriver du følgende:
=hvis(i6=1;8;hvis(i6=2;8;hvis(i6=3;16;\"\")))

i celle D6 skriver du følgende:
=hvis(i6=1;16;hvis(i6=2;16;hvis(i6=3;0;\"\")))

fortsæt selv med de sidste 5.

NB. hvis formlen kan KUN gentages 8 gange inden i hinanden.

afprøver lige.

Thomas

Så er det vist nemmere at lave en opslagsformel.
Har du en mailadresse så kan jeg sende løsningen - alternativt send en mail til jan_vogt_hansen@hotmail.com.

Man kan også lave sin egen lille funktion med lidt kode i VBA

I celle C6 skrives så =Tid(i6;1)
I celle D6 skrives så =Tid(i6;2)

Kodestumpen kopieres ind i et kodemodul, og de resterende Case\'s udfyldes.

Function Tid(Valg As Integer, Type12 As Integer) As Integer
    If Type12 = 1 Then
        Select Case Valg
            Case 1
                Tid = 8
            Case 2
                Tid = 8
            Case 3
                Tid = 16
            Case 4
            Case 5
            Case 6
            Case 7
            Case 8
        End Select
    Else
        Select Case Valg
            Case 1
                Tid = 16
            Case 2
                Tid = 16
            Case 3
                Tid = 0
            Case 4
            Case 5
            Case 6
            Case 7
            Case 8
        End Select
    End If
End Function

Ja, det vil sige, at funktionen må ikke hedde TID, idet den findes i forvejen.

Udskift alle forekomster af Tid i ovenstående med f.eks. MinTid også i formlerne.

Det er absolut ikke nødvendigt med VBA-kode til så simpelt et problem!

Min Mail thomas@vogh.dk

Ark sendt.

jeg er på arbejde så jeg kikker på det imorgen.
TAK

Thomas

Fik du kigget på arket?

Tak For hjælpen
Her er lidt til P.

Thomas

Øhh, kunne du ikke bruge arket jeg sendte?