Arbeitstag als Variable in FormularLocal
07.12.2020 08:15:55
Kay
ich bräuchte mal Eure Hilfe.
Ich habe ein Excel Sheet, in dem für jeden Arbeitstag ein Sheet angelegt ist. Jetzt möchte ich in jedem Sheet, eine Zahl ermitteln, die am vorherigen Arbeitstag die letzte war.
Ich lege die Arbeitsblätter, immer mit eine Code an und würde die Formeln entsprechend gleich mit rein schreiben lassen.
Ich bekomme hier aber immer einen Fehler angezeigt und komme nicht auf das Ergebnis.
Hier mein Code dazu. Der Fehler liegt in der Fett markierten Zeile. In der Zelle BI7 steht das jeweilige aktuelle Datum, was auch gleichzeitig der Sheet-Name ist.
Die Formel soll dann als Beispiel so aussehen, wie ich es manuell in Excel eingetragen habe. Dabei ist das Datum eben pro Sheet variabel und ist immer der vorherige Arbeitstag:
=WERT('04.01.2021'!CJ26)
Dim WsNamen As Worksheet
Dim WsKopie As Worksheet
Dim i As Integer
Dim intLastZ As Integer
intLastZ = Cells(Rows.Count, 12).End(xlUp).Row
'MsgBox "letzte zelle: " & intLastZ, vbInformation
Set WsNamen = ThisWorkbook.Worksheets("Arbeitstage")
Set WsKopie = ThisWorkbook.Worksheets("Vorlage_DDS")
For i = 1 To intLastZ
WsKopie.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = WsNamen.Cells(i, 1).Value
ActiveSheet.Range("BI7") = ActiveSheet.Name
ActiveSheet.Range("CJ26").FormulaLocal = "=Max(CA23:CA26)"
ActiveSheet.Range("CL26").FormulaLocal = "=WERT(CJ26)"
ActiveSheet.Range("CK26").FormulaLocal = "=WERT('" & "ARBEITSTAG(BI7;-1;Feiertage)" & "'!CJ26)"
Next
Set WsKopie = Nothing
Set WsNamen = Nothing
Vielen Dank für Eure Hilfe
Liebe Grüße Kay