wie es aussieht bräuchte ich mal wieder Eure Hilfe.
Ich füge einer Zelle über einen Schaltbutton ein Kommentarfeld zu.
Private Sub CommandButton_Lehrgang_Click()
Dim Kommentar As Comment
Set Kommentar = ActiveCell.AddComment
Kommentar.text Application.UserName & vbLf & Date & vbLf & "Lehrgang geplant"
End Sub
Jetzt habe ich einen weiterenButton mit dem ich der Zelle den Kommentar
Kommentar.text Application.UserName & vbLf & Date & vbLf & "Lehrgang genehmigt"
bei gegebener Zeit hinzufügen möchte ohne den ersten Kommentar zu löschen. Mir geht es halt um die Datumsanzeigen wenn welches Ereignis geplant bzw. genehmigt wurde.
Habe in der recherche folgendes gefunden:
Hallo,
prüfe, ob die Zelle schon einen Kommentar hat.
If Len(Zelle.NoteText)=0 Then
Zelle.AddComment NewComment
Else
Zelle.NoteText=Zelle.NoteText &chr(10) &newComment
end if
Gruß
Ist mir auch einleuchtend nur mit dem einbauen hapert es.
Kann mir jemand auf die Sprünge helfen.
Danke schon im vorraus.
Gruß Frank