ich bin am verzweifeln und bitte um Eure Hilfe. Beim öffnen einer Datei soll in einem bestimmten Tabellenblatt in einer bestimmten Zelle immer eine Formel eingetragen werden.
Hier der Code
Sub Datei_oeffnen()
'** Parameter festlegen
Sheets("Parameter").Select 'wählt Tabellenblatt "Parameter" aus
Range("B3").Activate 'activiert Zelle B3
Stop
Active.cell.FormulaR1C1 = "TODAY() - Weekday(TODAY(), 2) + 1 - 7"
Stop
Range("B4").Select
Active.cell.FormulaR1C1 = "TODAY() - Weekday(TODAY(), 2) + 1"
Stop
End Sub
Leider kommt immer die Fehlermeldung 424 Laufzeitfehler, Objekt erforderlich. Wenn ich die Anfü _
hrungsstriche weglasse, kommt ein Kompilierungsfehler "
Sub oder
Function nicht definiert". Was mache ich falsch? Die Formel habe ich über das Direktfenster _
abgefragt (?ActiveCell.FormulaArray) und das als Antwort erhalten =TODAY()-WEEKDAY(TODAY(),2)+1- _
_
_
7