Funktion

I et almindeligt kodemodul placerer du denne funktion, og i din celle skriver du f.eks. =LuffeTimer(A1) hvor der i A1 f.eks. står "Mandag"

Public Function LuffeTimer(ByVal DayName As String) As Double
    Dim dRetVal As Double
    Application.Volatile
   
    dRetVal = 0
    Select Case UCase(DayName)
        Case "MANDAG"
            dRetVal = 7.75
        Case "TIRSDAG"
            dRetVal = 7.75
        Case "ONSDAG"
            dRetVal = 7.75
        Case "TORSDAG"
            dRetVal = 7.75
        Case "FREDAG"
            dRetVal = 6
        Case "LØRDAG"
            dRetVal = 0
        Case "SØNDAG"
            dRetVal = 0
    End Select
   
    LuffeTimer = dRetVal
End Function

Hvis dagen er en dato kan du bruge denne funktion
=VÆLG(UGEDAG(A1;2); 7,6; 7,6; 7,6; 7,6; 6,0; 0; 0)
eller hvis dagen er et tal fra 1 til 7
=VÆLG(A1; 7,6; 7,6; 7,6; 7,6; 6,0; 0; 0)

Hej Flemming

Det ser rigtigt nok ud det du har svaret, men problemet er, at jeg ikke kender den funktion. Jeg er vant til at bruge f.eks. HVIS(A1)  osv.
Kan jeg få dig til at lave en færdig funktion, så det kan sætte direkte ind i cellen ?

Luffe

Jamen det er en brugerdefineret funktion, altså en makro der er en funktion på lige vilkår som HVIS funktionen. Jeg kan godt sætte den ind i dit regneark fd@win-consult.com - får snart gæster so hurry, hvis det skal være i dag.

Flemmingdahl skal det ikke være =PERSONAL.XLS!LuffeTimer(A1) i stedet for =luffetimer(a1) ? Eller hvordan undgår man at skulle skrive Personal.xls! foran sine funktioner?

palle_ib - det gør du ved at ligge makro'en direkte i regnearket's makroområde eller i en .xla fil