Hallo Nordsee-Nacken,
Code in Tabelle eintragen.
Gruß
fedjo
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("F6:F36")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
If RaZelle.Value = "Urlaub" Then RaZelle.Offset(0, -4) = 8
End If
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub