indsæt formel automatisk per ubestemt antal rækker

må det være vba kode?

Det skal det være :-)

Det er nok noget i denne retning.
sker din import via vba?


  rk = ActiveCell.SpecialCells(xlLastCell).Row
  kol = ActiveCell.SpecialCells(xlLastCell).Column
  For t = 1 To rk
        Cells(t, kol + 1).Formula = "=A" & t & "+B" & t
  Next t

med denne her er dit ark altid opdateret, isættes som vba kode på det pågældende ark

den vil altid starte i række 1, ønskes anden start række ændres for t = ? to rk

Private Sub Worksheet_Change(ByVal Target As Range)
  rk = ActiveCell.SpecialCells(xlLastCell).Row
  kol = ActiveCell.SpecialCells(xlLastCell).Column
  For t = 1 To rk
        Cells(t, kol + 1).Formula = "=A" & t & "+B" & t
  Next t

End Sub

Takker det virker fint!
Jeg har dog det problem at min formel ikke lige kan køres fra vba, kan du hjælpe?
Send svar for point.
Cells(t, kol + 1).Formula =
(VLOOKUP(DATA!$A3;DATAOld!$A$3:$V$65000;2;FALSE)=DATA!B3)*
(VLOOKUP(DATA!$A3;DATAOld!$A$3:$V$65000;3;FALSE)=DATA!C3)

ja det tror jeg. først skal du huske "" der ud over skal ; skrives som ,
Hvorfor ved jeg ikke, :-)

eks.
  Cells(t, kol + 1).Formula = "=VLOOKUP(A1,A1:A10,1,FALSE)"

Jeg bliver desværre nød til at løbe, kommer tilbage senere i eftermiddag.
Håber du for det til at virke.

Efter lidt modificering virker det perfekt.
Worksheets("DATA").Cells(t, kol + 1).Formula = "=VLOOKUP(DATA!A" & t & ",DATAOld!A1:Y" & rk & ",2,FALSE)=DATA!B" & t & ""

Jeg har endnu et lille problem.
Min formular uden om VBA:
(VLOOKUP(DATA!$A3;DATAOld!$A$3:$V$65000;2;FALSE)=DATA!B3)*
(VLOOKUP(DATA!$A3;DATAOld!$A$3:$V$65000;3;FALSE)=DATA!C3)
Her har jeg sat to VLOOKUP sammen og adskilt dem med "*".
Hvad gør jeg i VBA, når jeg skal checke på flere kolonner?

Fik selv løst det:

Worksheets("DATA").Cells(t, kol).Formula = "=(VLOOKUP(DATA!A" & t & ",DATAOld!A1:Y" & rk & ",2,FALSE)=DATA!B" & t & ")" & _
"=(VLOOKUP(DATA!A" & t & ",DATAOld!A1:Y" & rk & ",3,FALSE)=DATA!C" & t & ")"