d = target.Row
e = target.Column
Adresse = target.address

if target.notetext="" then target.clearcomments
target.addcomment
target.Comment.Visible = True
target.Comment.Shape.Select True
' Der folgende Schritt wird weiter unten klar!
set letzteR=target

' Im normalen Modul Anlegen mit Insert -> Modul
Option Explicit
Global letzteR as Excel.Range
 
sub arbeite_mit_letzter_kommentarzelle
if letzteR = nothing then exit sub
letzteR.Comment.Visible = False
' Auslesen des eingegebenen Kommentars
 
' Wenn nichts eingegeben wurde Kommentar wieder löschen
If letzteR.NoteText = "" Then letzteR.ClearComments
 
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
Application.EnableEvents = True
letzteR.worksheet.Protect Password:="XXXX", UserInterfaceOnly:=True
set letzteR = nothing 
End sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if not letzteR is nothing then call arbeite_mit_letzter_kommentarzelle
end if
 
Private Sub Worksheet_Deactivate()
if not letzteR is nothing then call arbeite_mit_letzter_kommentarzelle
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
if not letzteR is nothing then call arbeite_mit_letzter_kommentarzelle
End Sub