Zum Code dazufügen
16.11.2007 08:34:06
Heinz
Wie gehört bitte diese untere Zeile richtig im Code eingefügt,damit das selbe passiert wie im Makro mit der einen "=IF
Also beide "=IF müssten ausgeführt werden.
"=IF(ISNA(VLOOKUP(RC[-10],R76C7:R91C8,2,0)),"""",""Feiertag""&VLOOKUP(RC[-10],R76C7:R91C8,2,0))"
Dim zelle As Range
For Each zelle In Range("G6:G42")
If zelle.Interior.ColorIndex 34 Then
zelle.FormulaR1C1 = _
"=IF(LEFT(RC[5],8)=""Feiertag"","""",IF(WEEKDAY(RC[-5],2)=1,R50C7,IF(WEEKDAY(RC[-5],2)=2,R51C7,IF(WEEKDAY(RC[-5],2)=3,R52C7,IF(WEEKDAY(RC[-5],2)=4,R53C7,IF(WEEKDAY(RC[-5],2)=5,R54C7,""""))))))"
End If
Next
End Sub