AW: Einige Formeln als VBA Code
14.11.2005 17:49:08
achim
Hallo
Bitte VBA (ALT F11)aufrufen und nach dem doppel click auf Jänner öffnet sich das code blatt.
nun diese code hinein kopieren
Sub FormelEistellen_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
Ach, da ist wohl noch irgendwie ein fehler in '--------Stundeneintragen bei Schicht ---------
Private
Sub Worksheet_Change(ByVal Target As Range)
lass das noch eventuell von den excel cracks prüfen.
gruß
achim h.