Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range) ' Älter als 65, dann KAT I
If Range("ImmuStatusK").Text Like "geimpft" And Range("HeuteMinusGebDat") > 64 Then
MsgBox "Deine IP ist älter als 65 Jahre, hier wird von der Herabstufung auf 'KAT II' abgesehen! Bitte wende dich an die Teamleitung.", _
vbCritical, "Die Kategorisierung wurde frühzeitig abgebrochen!"
Range("GebDat").ClearContents
Else
If Range("ImmuStatusK").Text Like "geimpft" Or Range("ImmuStatusK").Text Like "genesen" Then
MsgBox "Bitte die ROT hinterlegten Felder ausfüllen", _
vbExclamation, "Zur Information!"
End If
End If
End Sub