Habe dieses Problem schon vor ein paar Tagen in's Forum gestellt.
Konnte das Problem leider nicht lösen.
Dieser Code läuft einfach nicht.
Habe den Code im Tab.Blatt "Jänner"
Könnte mir bitte nochmals jemand helfen.
Danke Heinz
Sub UserForm1_Initialize()
Sheets("Jänner").Activate
Range("F271").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-5],feiertage,3,0)),IF(WEEKDAY(RC[-5],2)<5,8,IF(WEEKDAY(RC[-5],2)=5,6,"""")),VLOOKUP(RC[-5],feiertage,3,0))"
Selection.AutoFill Destination:=Range("F271:F301"), Type:=xlFillDefault
Range("F271:F301").Select
End Sub