das war Ihre letzte Nachricht hier:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$21" Or Target.Address = "$M$21" And Target "" Then
' Dein Makro
End If
End Sub
Gruß HajoIch hebe es jetzt ausprobiert jedoch sagt er mir immer, dass ein "End if" fehlt.
So habe ich es gemacht, wahrscheinlich falsch.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$22" Or Target.Address = "$M$21" And Target "" Then
ActiveSheet.Name = Range("I22").Value
Else
ActiveSheet.Name = Range("M21").Value
End If
End Sub