Oversætte kode til dansk

Prøv at vise koden her. ;)

Koden så sådan her ud.

Function rundkar(kar)
    Dim a As Double
    Select Case kar
        Case Is < -1.5
            a = -3
        Case Is < 2
            a = 0
        Case Is < 3
            a = 2
        Case Is < 5.5
            a = 4
        Case Is < 8.5
            a = 7
        Case Is < 11
            a = 10
        Case Else
            a = 12
    End Select
    rundkar = a
End Function

Når jeg så skal afrunde en krakter i fx A1, skriver jeg i B1 =Rundkar(a1).

Jeg tror snarere at det er makrosikkerheden i 2003 der blokkerer.
Prøv at sætte sikkerhedsniveauet ned.

Det er ikke det, for når jeg sætter koden ind (højreklik på fane ark1 og ind i vis programkode) og skriver =Rundkar(a1) i B1 skriver den #Navn
Ib

Husk at functioner, skal i et Module, ikke i ark og Thisworkbook moduler

tryk ALT +F11

Vælg insert module, der skal den være

Tak kabbak så virker det. Jeg havde puttet den ind det forkerte sted. Jeg kender ikke så meget til koder og VBA så jeg ved ikke hvor man skal lægge det forskellige ind. Kan du gi en lille hurtig forklaring på det, eller kan du fortælle hvor man kan læse om det. 
Tak igen for hjælpen og læg et svar så du kan få point.
Ib

et svar ;-))

En kode i et arkmodul, virker kun i arket og kan ikke aktiveres fra en celle.
En kode i et modul virker overalt

Tak og point.
Ib