Im Worksheet "Draft" ist ein Teil der Spalte H mit dem Namen "Check" benannt. In diesen ganzen Bereich möchte ich eine Formel mittels VBA hineinkopieren (Bereichsgrösse variert, deshalb ist eine gelegentlicher Update nötig).
In Zeile 7 muss die Formel wie folgt lauten: =IF(AND(D7="",SUM(I7,L7,N7:Q7)0),1,"")
In Zeile 8 muss die Formel wie folgt lauten: =IF(AND(D8="",SUM(I8,L8,N8:Q8)0),1,"")
etc.
Den Bereich möchte ich wie folgt mit der Formel versehen:
With Worksheets("Draft")
Range("Check") = "=IF(AND(D7="",SUM(I7,L7,N7:Q7)0),1,"")"
End With
Da diese Formel nur für Zeile 7 wirklich stimmt habe ich den Code wie folgt angepasst:
With Worksheets("Draft")
.Range("Check").Formula = "=IF(AND(RC[-4]="",SUM(RC[1],RC[4],RC[6]:RC[9])0),1,"")"
End With
Ich erhalte allerdings ein Anwendungs- oder objektdefinierter Fehler.
Wo liegt das Problem? Muss ich den Bereich "Check" anders ansprechen?
Danke für ein Feedback.
Peter