Avatar billede lasse666 Novice
27. januar 2014 - 06:14 Der er 2 kommentarer og
1 løsning

Run-time error '438' ved henvisning til celle

Hejsa, jeg skal have ændret noget formattering baseret på værdien i en celle.

Koden forneden giver mig en fejl, jeg ikke har set før:

"Run-time error '438' 'Object Doesnt support such property or Method". Jeg har googlet fejlen men kan ikke finde noget, der forklarer, hvor jeg får denne fejl.

Sub FormatAdjustment()

Set ws = Sheets("shet1")
   
If ws.Range("D9").Value = 0 Then
    ws.Range("D13").Selection.NumberFormat = "0%;;;"
Else
    ws.Range("D13").Selection.NumberFormat = "0%;0%;0%;"
End If

End Sub

Hvad gør jeg galt? På forhånd tak :)
Avatar billede kabbak Professor
27. januar 2014 - 06:56 #1
fjern
.Selection
Avatar billede kabbak Professor
27. januar 2014 - 06:59 #2
".Selection", bruges når cellen er valgt og så har man ikke adressen med.
sådan her

ws.Range("D13").select
Selection.NumberFormat = "0%;;;"

hvis man koder direkte uden at selecte, er det

ws.Range("D13").NumberFormat = "0%;;;"
Avatar billede lasse666 Novice
27. januar 2014 - 07:17 #3
åh gud var det bare det...tak for det hurtige svar!
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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