Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
If
Not
Intersect(Range(
"B5:AF5"
), Target)
Is
Nothing
Then
Application.EnableEvents =
False
For
Each
Target
In
Target
If
Target =
""
Then
Target.FormulaR1C1 = _
"=IF(R[1]C="
"RT"
","
"Ruhetag"
",IF(R[1]C="
"U"
","
_
&
""
"Urlaub"
",IF(R[1]C="
"GT"
","
"Gleitzeit"
","
""
")))"
Else
Target.Value = Target.Value
End
If
Next
Target
Application.EnableEvents =
True
End
If
End
Sub