Kommentar wird in die falsche Zelle eingefügt.

Hallo,

die Zelle, die geändert wurde, musst du mit Target ansprechen. Die ActiveCell ist die Zelle darunter, wenn die Änderung mit Enter bestätigt wurde.

Probiere es so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("M:M")) Is Nothing Or _
Target.Count > 1 Then Exit Sub

Dim cmtNotiz As Comment

Target.AddComment Environ("Username") & vbLf & Date & vbLf & Time & " Uhr"

End Sub

Claus

Klasse, Claus.

Das brachte die Lösung. Vielen Dank Dir.

Hallo,

wenn du den Code in eine Vorlage (.xltm) schreibst, ist er beim Öffnen der Vorlage schon in der Kopie vorhanden.

Claus

Eine kleine Ergänzungsfrage. Und die nur, weil ich im Net auch so rein gar nichts dazu finden konnte.

Die Ereignisse für Workbook und Worksheet müssen ja direkt im Workbook (Diese Arbeitsmappe) und Worksheet in der jeweiligen Tabelle stehen. Kann ich diesen Code (Worksheet_Change) auch in einer Vorlage speichern und diese dann in eine bspw. neue Tabelle
einfügen/einbetten?

Hallo Alex,

klicke rechts auf den Tabellenreiter des Blattes => Code anzeigen. Dann siehst du deinen vorhandenen Code in diesem Worksheet_Change-Ereignis. Nun klickst du oben rechts in diesem Fenster wo Change steht auf den DropDown-Pfeil und wählst SelectionChange.
Dabei wird dann in diesem Fenster eingefügt:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Zwischen diesen beiden Zeilen fügst du den Code von Chris ein.

Ein Vorschlag von mir, bei dem nicht immer die Zeile vergrößert und verkleinert wird: Lege für alle Zellen mit Zeilenumbruch einen Kommentar mit dem Inhalt der Zelle an. Dieser Kommentar wird angezeigt, wenn du den Cursor über die Zelle stellst.

Claus