Indsætte formel med VBA
Indsætte formel med VBAEfter at have kopieret en masse data med VBa, skal jerg lige sikre mig at der står den rigtige formel i celle(M6), så jeg senere kan kopiere den med "fyldhåndtaget".
men min kode fejler på "Application-defined or object-defined error"...
Sub FormulaInsertTest()
FirstDateRow = 6
LastDateRow = 16
Dim RealFormel As String
Dim NyFormel As String
RealFormel = Sheets(1).Range("M6").Formula
NyFormel = "=IF(WEEKDAY(A6;11)=1;CONCATENATE(""Uge "";ugenr(A6));"""")"
MsgBox RealFormel & Chr(10) & NyFormel ' får nu de 2 formler vist i en msgbox, så jeg kan kontrollere at den jeg selv har genereret ovenover, er identisk med den jag henter ind fra sheet(1) celle M6
' herunder indsætter vi en formel øverst i kolonne M
Range("M" & FirstDateRow).Select
Range("M" & FirstDateRow).Formula = NyFormel
End Sub
FirstDateRow = 6
LastDateRow = 16
Dim RealFormel As String
Dim NyFormel As String
RealFormel = Sheets(1).Range("M6").Formula
NyFormel = "=IF(WEEKDAY(A6;11)=1;CONCATENATE(""Uge "";ugenr(A6));"""")"
MsgBox RealFormel & Chr(10) & NyFormel ' får nu de 2 formler vist i en msgbox, så jeg kan kontrollere at den jeg selv har genereret ovenover, er identisk med den jag henter ind fra sheet(1) celle M6
' herunder indsætter vi en formel øverst i kolonne M
Range("M" & FirstDateRow).Select
Range("M" & FirstDateRow).Formula = NyFormel
End Sub
koden udløser en fejl lige efter MsgBox'en: "Application-defined or object-defined error", og debuggeren markerer at det er linien "Range("M" & FirstDateRow).Formula = NyFormel" der fejler.
Har forsøgt med .Value og .Text i stedet for .Formula, men det ændrer ikke noget
Hvad er det der udløser denne "Application-defined or object-defined error" ?
