Ups, dumme mig - jeg så ikke lige, at det var et VBA spørgsmål - det er ikke sådan, når man klikker sig ind på emnet fra forsiden...
Definer en ekstra 'Range' variable, der benyttes til de enkelte celler og tilføj disse få linjer, efter din 'lRow = 0' linje:
Dim Celle As Range ' Laves sammen med dine andre variabel definationer For Each Celle In rMyRange Celle.Formula = Replace(Celle.Formula, 2014, 2015) Next Set Celle = Nothing ' Foretages sammen med de andre oprydninger (godt gået der - mange glemmer dette)
Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Du er nødt til at have en celle, hvor du indtaster årstallet - lad os sige, at du, på dit 'Ark1', benytter celle 'A1' til at indtaste årstallet...
På 'Ark1' i celle 'D4' skriver du:
=SUM(INDIREKTE("'"&$A$1&"'!A4:B4"))
Du kan nu skrive et nyt årstal i celle 'A1', og formlen vil foretage bereningen udfra det faneblad/regnark, der har samme navn, som der står i celle 'A1'.
Ret selv de øvrige celler til på dit 'Ark1'.
Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Du kan ikke oprette nye emner i dette forum Du kan ikke besvare beskeder i dette forum Du kan ikke slette dine beskeder i dette forum Du kan ikke redigere dine beskeder i dette forum Du kan ikke oprette afstemninger i dette forum Du kan ikke stemme i dette forum
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Ark reference i formel
Emne funktioner
