Danke für euere Hilfe.
Grüße Peter
https://www.herber.de/bbs/user/86383.xlsm
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sheets("Tabelle1").Range("K1").ClearContents
End Sub
So wird bei JEDEM Tabellenblattwechesl in Tabelle1!K1 gelöscht.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sheets("Tabelle1").Range("K1").Value = "" ' Löscht den Zellinhalt bei Tabellenwechsel
End Sub
Grüße,