Oprettet man. d. 07. januar 2013 kl. 13:10:32

ferdinand.k
ferdinand.k (32.483 point. Point ude: 385)


indsæt formular i celle gennem VBA

Halløjsa,

Jeg skal have indsat en formular i en række celler (B2 -- > B200), men jeg får en fejl når jeg smider koden ind.

Jeg skal have indsat denne koden :
=IF(A2<>"";(VLOOKUP(A2;SUMMARY!L1:AC1000;18;FALSE));"")

Jeg har forsøgt mig med både:
Range("B2:B200").FormulaR1C1 =
Range("B2:B200").Value =

... hvad bør jeg gøre ?

Skrevet man. d. 07. januar 2013 kl. 17:32:07| #1

store-morten
store-morten (43.770 point)
Måske:
Sub Test_Indsæt_Formel()

    Range("B2").Formula = _
        "=IF(A2<>"""",(VLOOKUP(A2,SUMMARY!$L$1:$AC$100,18,FALSE)),"""")"
    Range("B2").AutoFill Destination:=Range("B2:B200"), Type:=xlFillDefault
   
End Sub

Skrevet man. d. 07. januar 2013 kl. 20:00:57| #2

ferdinand.k
ferdinand.k (32.483 point)
Det spiller - Tak. Men jeg fortår sgu ikke lige de der dobbelt-plinger ?!

Skrevet man. d. 07. januar 2013 kl. 20:04:17| #3

store-morten
store-morten (43.770 point)
dobbelt-plinger ?!

Skrevet man. d. 07. januar 2013 kl. 20:32:48| #4

store-morten
store-morten (43.770 point)
Nå.. nu er jeg med ;-)
Range("B2").Formula =
Skriver det der står mellem den første " og sidste "

Altså for at få "" (tom) med blive formlen delt op:

=IF(A2<>  " og "  "",(VLOOKUP(A2,SUMMARY!$L$1:$AC$100,18,FALSE)),  " og "  "")  "

Skrevet tir. d. 08. januar 2013 kl. 07:47:28| #5

ferdinand.k
ferdinand.k (32.483 point)
Det giver bedre mening. Tak

Skriv et indlæg




Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] [img]link til billede[/img]
Web- og emailadresser omdannes automatisk til links

Log ind

   


Seneste spørgsmål

VBA: Opret tabel eller navngivent område ud fra select...

Oprettet den 23. maj 2015 kl. 19.14
KenneyD71 giver 65 point for svar | Giv et svar »

Redigering af celle indhold

Oprettet den 22. maj 2015 kl. 11.49
MIK_70 giver 60 point for svar | Giv et svar »

tabel

Oprettet den 22. maj 2015 kl. 01.09
ducrider giver 30 point for svar | Giv et svar »






Computerworld

Teaser billede

Windows 10-opgradering kun gratis det første år - her er Microsofts opgraderings-plan

Microsoft fejer enhver tvivl af banen: Windows 10 vil ikke blive ved med at være gratis. Se selskabets opgraderings-plan her.

CIO

Teaser billede

Efter 20 år i it-sikkerhedsbranchen: Her er fem barske sandheder fra kendt sikkerhedsekspert

Hvor reel en trussel er mobiltelefoner egentlig? Er det medarbejderne som er truslen mod firmaets data? Og hvorfor bliver amerikanske tjenester ved med at halte på sikkerheden? Få svaret når en...

Channelworld

Teaser billede

Kendt direktør ude af stort dansk SAP-hus med dags varsel efter under et år på posten

Sammenstødet mellem dansk og amerikansk mentalitet udløser tumult på ledelsesgangen i Ciber.

White paper

Teaser billede

Hvilken rolle spiller datacenteret i fremtidens hybride IT-virkelighed?

Hvordan sikres sikkerhed, performance og netværkskapacitet til at understøtte de hybride løsninger? Få svarene i dette white paper



Udgiver · © 2015 Computerworld A/S · Hørkær 18 · 2730 Herlev · Tlf.: 77 300 300 · Fax: 77 300 301 · Brug af personoplysninger