Bitte nochmals um Hilfe für Stunden
22.11.2005 17:45:42
Heinz
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
Anzeige