22. marts 2008 - 18:35Der er
18 kommentarer og 1 løsning
Udregne alder.
Jeg har prøvet at lave det eksempel som vises i http://www.eksperten.dk/spm/603685 men i b1 skriver den kun #navn? hvis jeg skriver =Alder(A1;B1)i c1. Hvad gør jeg forkert. Jeg har kopieret nummer 2 kode ind som makro. Hilsen Prinsib
Jeg forstår det ikke. i A1 skriver jeg 12-10-1946. I b1 indsætter jeg =idag(), og i c1 skriver jeg =Alder(A1;B1)Alle cellerne er formateret som dato og alligevel skriver den #navn?
Under Funktioner -> Makro -> Sikkerhed -> skal den stå til "mellem" Du vil så blive spurgt om du vil åbne mappen med eller uden makroer. Du vælger selvfølgelig med....
Det hjælper ikke at gemme og lukke dokumentet, og jeg bliver ikke spurgt om jeg vil åbne mappen med eller uden makroer, men jeg sætter jo heller ikke en makro ind.
Nu har jeg ikke mere hår på hovedet. Jeg har startet på en ny mappe. Jeg har kopieret nummer 2 kode ind som makro Function Alder(Date1 As Date, Date2 As Date) As String Dim Y As Integer Dim M As Integer Dim D As Integer Dim Temp1 As Date Temp1 = DateSerial(Year(Date2), Month(Date1), Day(Date1)) Y = Year(Date2) - Year(Date1) + (Temp1 > Date2) M = Month(Date2) - Month(Date1) - (12 * (Temp1 > Date2)) D = Day(Date2) - Day(Date1) If D < 0 Then M = M - 1 D = Day(DateSerial(Year(Date2), Month(Date2) + 1, 0)) + D + 1 End If Alder = Y & " år " & M & " måneder " & D & " dage" End Function I A1 skriver jeg 12-10-1946. I B1 indsætter jeg =idag(), og i c1 skriver jeg =Alder(A1;B1) Alle cellerne er formateret som dato. Jeg gemmer dokumentet og åbner det igen. Jeg bliver så spurgt om jeg vil åbne mappen med eller uden makroer, og vælger selvfølgelig med....og alligevel skriver den #navn? i C1. Skal jeg opgi, eller kan jeg sende arket til dig vejmand?
Tak for hjælpen. Nu skriver den ikke navn mere, men den regner ikke rigtig. Den siger 5 måneder i stedet for 7 måneder. Hvis det ikke er lige til at løse skal du ikke bruge mere tid på det, så læg et svar og du skal få nogle point.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.