Blatname mit wenn, dann
wowanick
Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsEmpty(Cells(22, 9)) And IsNumeric(Cells(22, 9)) Then
ActiveSheet.Name = Range("I22").Value
Else
ActiveSheet.Name = Range("M21").Value
End If
End Sub