[VBA] Kommentar wird in die falsche Zelle eingefügt.

Dura Cell · 18. Oktober 2020

Hallo zusammen und einen schönen Sonntag,

einmal kurz etwas zur Aufgabenbeschreibung.

Ich möchte, dass bei bzw. nach einer Eingabe in Spalte M in die beschriebene Zelle ein vorgegebener Kommentar eingefügt wird.

Mein Code dafür sieht wie folgt aus.

Das Tabellenblatt-Ereignis: Worksheet_Change

Private Sub Worksheet_ChangeByVal Target As Range

Dim cmtNotiz As Comment

Set cmtNotiz = ActiveCell.AddComment

If Target.Column = 13 Then

cmtNotiz.Text Environ"Username" & vbLf & Date & vbLf & Time & " Uhr"

End If

End Sub

Der Fehler.

Der Kommentar wird soweit korrekt eingefügt. Allerdings nicht in die beschriebene Zelle, sondern in die nächste leere Zelle, nachdem die Eingabe mit Enter bestätigt wurde.

Ein Beispiel: Wenn ich in Zelle M2 einen Text eingebe und diesen mit Enter bestätige, wird der Kommentar nicht in Zelle M2, sondern in Zelle M3 eingefügt. Der Kommentar an sich ist richtig.

Wo liegt mein Fehler und was muss ich dafür korrigieren. Stehe gerade auf dem Schlauch. Wäre nett, wenn mir dabei jemand helfen könnte.

Claus Busch

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

Dura Cell

Klasse, Claus.

Das brachte die Lösung. Vielen Dank Dir.

Claus Busch

Hallo,

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

Claus

Dura Cell

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?

Claus Busch

Hallo,

wenn die Zellen, die du kopierst in einer Zeile stehen, werden sie auch in einer Zeile eingefügt. Stehen die kopierten Zellen in einer Spalte, musst du beim Einfügen "Transponieren" wählen.

Sind die Zellen über mehrere Spalten und Zeilen verteilt, musst du wohl eine Formel oder VBA verwenden.

Claus

Hi,

willkommen im Windows Forum!

[VBA] Kommentar wird in die falsche Zelle eingefügt. - Similar Threads - VBA Kommentar falsche	Forum	Datum
VBA Zelle farblich hervorheben VBA Zelle farblich hervorheben: Hallo zusammen,ich würde gerne die Zelle in "Zeile 12" farblich hervorheben, die an dem entsprechenden Tag angesteuert wird.Private Sub Worksheet_ActivateDim c As Range Set c =...	Microsoft Office	20. Oktober 2022
Kommentar wird in die falsche Zelle eingefügt. Kommentar wird in die falsche Zelle eingefügt.: Hallo zusammen und einen schönen Sonntag, einmal kurz etwas zur Aufgabenbeschreibung. Ich möchte, dass bei bzw. nach einer Eingabe in Spalte M in die beschriebene Zelle ein vorgegebener...	Microsoft Office	18. Oktober 2020
Excel 2013 - In Kommentaren eingefügte Bilder ändern ihre Größe Excel 2013 - In Kommentaren eingefügte Bilder ändern ihre Größe: Hallo zusammen, Folgendes Thema konnte ich bereits mit der SuFu finden, jedoch gab es keine wirklich vernünftige Antwort darauf und der Beitrag ist bereits geschlossen... Zu meinem Problem:...	Microsoft Office	4. Juni 2020
falsch eingefügter Abschnitt falsch eingefügter Abschnitt: Hallo zusammen, Ich habe mich in OneNote auf dem IPad abgemeldet alle Notizbücher geschlossen und anschließend wieder angemeldet. Zuvor wurden leider nicht alle mit dem IPad erstellte Notizen...	Microsoft Office	23. April 2020
Falsch eingefügte Abschnitte Falsch eingefügte Abschnitte: OneNote zeigt plötzlich ein Notizbuch Falch eingefügte Abschnitte Ich brauche keine der Seiten (mehr) und möchte diese löschen. Aus den Hilfetext: Löschen eines falsch eingefügten Abschnitts...	Microsoft Office	7. September 2018
OneNote - Falsch eingefügte Abschnitte OneNote - Falsch eingefügte Abschnitte: Hallo Leider kann ich einige Notizen aus Falsch eingefügte Abschnitte nicht löschen oder verschieben. Wenn ich mit der rechten Maustaste drücke, gibt es kein Löschen bzw. ist nicht möglich zu...	Microsoft Office	20. Juni 2018
One Note, Falsch eingefügte Abschnitte One Note, Falsch eingefügte Abschnitte: Hallo zusammen, mein gesamtes Notizbuch wurde unter "Falsch eingefügte Abschnitte" verschoben und ist nur noch auf mein Handy so sichtbar. Wie kann ich Diesen retten? Gruss Vincenzo	Microsoft Office	3. April 2018

[VBA] Kommentar wird in die falsche Zelle eingefügt.