Avatar billede busschou Praktikant
05. august 2008 - 22:50 Der er 6 kommentarer og
1 løsning

runtime error 1004

Jeg får denne her 1004 application-defined or object-defined error og den irriterer mig da jeg ikke kan se hvad der er galt
Jeg har en dato hentet ind fra en celle hvor den står som fx 01-04-2008
Jeg vil gerne manipulere denne således at jeg i en anden celle får uge nummeret
Dette skal ske i en makro
I min makro har jeg nu følgende som giver fejlen
Worksheets("mitark").Cells(j, 2).value = "=weeknum(" + CStr(dato) + ";2)"

Hvorfor virker dette ikke?
Hvis jeg i stedet gør sådan her
Worksheets("mitark").Cells(j, 2).value = dato
Så virker det fint og datoen kommer over
Hvis jeg gør sådan har
Worksheets("mitark").Cells(j, 2).value = "=weeknum(;2)"
Så kommer teksten fint over
Hvis jeg samler det til
Worksheets("mitark").Cells(j, 2).value = "=weeknum(" + dato + ";2)"
så får jeg en runtime 13 error
Den har jeg før løst med at sætte CSTR foran.. men som sagt så giver det mig bare den 1004 fejl
Avatar billede kabbak Professor
05. august 2008 - 22:58 #1
Worksheets("mitark").Cells(1, 2).Value = Format(dato, "WW", vbMonday, vbFirstFourDays)
Avatar billede kabbak Professor
05. august 2008 - 23:04 #2
Er din excel Dansk eller engelsk ??
i min danske er den som formel sådan her:

Worksheets("mitark").Cells(j, 2).Formula = "=UGE.NR(" & Dato &",2)"
Avatar billede busschou Praktikant
06. august 2008 - 09:46 #3
det er jo super :o)
Jeg forstår stadig ikke helt hvorfor jeg får den fejl

Ved ikke om jeg kan tillade mig et kort tillægs spørgsmål
De er jo nemme nok når man ved hvordan man skal gøre :o)

I min makro vil jeg gerne ændre vilkårene for en dropdown og prøver følgende:

ActiveSheet.Shapes("Drop Down 3").Select
With Selection
  .ListFillRange = "logik$A$2:$A$" + CStr(j - 1)
  .LinkedCell = "logik$B$1"
  .DropDownLines = 8
  .Display3DShading = False
End With

Jeg får ingen fejl what so ever... men .ListFillRange og .LinkedCell bliver tomme
Kan man ikke opdatere det inde i en makro?
Avatar billede kabbak Professor
06. august 2008 - 14:22 #4
prøv at sætte en ! ind

  .ListFillRange = "logik!$A$2:$A$" + CStr(j - 1)
  .LinkedCell = "logik!$B$1"
Avatar billede busschou Praktikant
06. august 2008 - 21:31 #5
Det virker selvfølgelig
Det er åbenbart de små forskelle der tæller ;o)

Og minsandten om ikke der dukker endnu et lille problem op

Hvis jeg laver et søjlediagram hvor x aksen er uge numre så får jeg en fin graf med brede søjler
Men hvis jeg i stedet for uge numre vælger at x aksen skal vise den enkelte dato så får jeg de rigtige søjler men de er bare mini bitte smalle og der er mega mellemrum imellem dem

Data der går godt er:
22    3,10
25    4,20
28    4,70
31    0,90

Data der går galt er:
26-05-08    3,10
16-06-08    4,20
07-07-08    4,70
28-07-08    0,90

Hvorfor katten sker det nu?

Og så er det jo nok fair du lægger et svar og jeg opretter nyt spørgsmål hvis jeg finder mere ;o)
Avatar billede kabbak Professor
06. august 2008 - 22:31 #6
jeg har ikke den store forstand på grafer, så der må nok andre til
Avatar billede busschou Praktikant
07. august 2008 - 05:38 #7
oki jeg laver et nyt spg til den ;o)
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester