Ja Jan, den vil virke...men det gør desværre ikke, at jeg kan trække formlen ned. Der vil være over 10000 rækker i mit regneark. Jeg vil så have problemet længere nede, at jeg manuelt skal lægge en til. Det må være noget med, at A5 henviser til formlen i A1 og lægger én række til i opslaget
Option Explicit Dim DetteArk As Worksheet Dim Kol As Range Dim Ark As Worksheet Dim ArkKol As Range Dim Cell As Range Sub Formeler_i_nyt_Ark() '----- Ark der skal udfyldes ---' Set DetteArk = ActiveSheet Set Kol = DetteArk.Range("A1") '----- Ark hvor der hentes fra ---' Set Ark = Sheets("Input") Set ArkKol = Ark.Range("A1") Set ArkKol = Range(ArkKol, ArkKol.End(xlDown)) '------ Alle celler i A-kolonnen i ark (Input) gennemgås -----' For Each Cell In ArkKol Kol.Formula = "=Input!" & Cell.Address Kol.Offset(1, 0).Formula = "=" & Kol.Address & "+100" Kol.Offset(2, 0).Formula = "=" & Kol.Offset(1, 0).Address & "+100" Kol.Offset(3, 0).Formula = "=" & Kol.Offset(2, 0).Address & "+100" Set Kol = Kol.Offset(4, 0) Next Cell End Sub
#11 - Der er mange muligheder, for at indsætte Formler til at lave sum på hver X række. Nedenstående Formel vil f.eks. også gøre det. =SUMPRODUKT(A2--(REST(RÆKKE(A2)-RÆKKE(A2);3)))
Men problemet er jo, at du ikke kan trække formlen nedad på alle dine rækker. Så du skal manøvrere for hver X antal rækker, for at indsætte sådanne formler, fordi dine sum formler (+100), også skal stoppe på hver X række! Så mit bud vil da være at lave en VBA løsning.
Det er rigtigt ebea, og det er det, som jeg ville undgå, men som sagt så kan det løses på denne måde:
=INDEKS(Input!A:A;SAMMENLIGN(A1;Input!A:A;0)+1;0)
Synes godt om
Ny brugerNybegynder
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.