Habe in meiner Tabelle ein haufen Formel stehen.
Frage: Könnte man dieses Ergebniss der Formel nicht als Wert anzeigen.
So das zb. in der Zelle C6:C42 das Ergebniss und nicht die Formel steht.
Könnte mir bitte dabei jemand ein Beispiel geben.
Gruß Heinz
Dim zelle As Range
'---- Formel in Spalte C einfügen Kommen ----
For Each zelle In Range("C6:C42")
If zelle.Interior.ColorIndex 34 Then
zelle.FormulaR1C1 = _
"=IF(RC[9]=""Krank"","""",IF(RC[9]=""Urlaub"","""",IF(COUNTIF(R76C7:R91C7,RC[-1])=1,"""",IF(WEEKDAY(RC[-1],2)=1,R53C2,))))&IF(WEEKDAY(RC[-1],2)=2,R54C2,IF(WEEKDAY(RC[-1],2)=3,R55C2,IF(WEEKDAY(RC[-1],2)=4,R56C2,IF(WEEKDAY(RC[-1],2)=5,R57C2,""""))))"
End If
Next
'---- Formel in Spalte D einfügen Pause Beginn ----
For Each zelle In Range("D6:D42")
If zelle.Interior.ColorIndex 34 Then
zelle.FormulaR1C1 = _
"=IF(COUNTIF(R76C7:R91C7,RC2)=1,"""",IF(WEEKDAY(RC2,2)=1,R101C5,IF(WEEKDAY(RC2,2)=2,R102C5,IF(WEEKDAY(RC2,2)=3,R103C5,IF(WEEKDAY(RC2,2)=4,R104C5,IF(WEEKDAY(RC2,2)=5,R105C5,""""))))))"
End If
Next
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub