M
MSCom
Neuer Benutzer
Threadstarter
- Dabei seit
- 20.09.2016
- Beiträge
- 1
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_Change(ByVal 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.
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.
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_Change(ByVal 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.
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.