Cursor in Kommentar setzen
15.01.2013 16:03:51
Reinhard
prinzipiell geht es darum beim Erstellen eines Kommentars zu einer
Zelle automatisch gleich Datum und Zeit im neuen Kommentar zu haben.
Ich fand hier in der Recherche viel zu Kommentaren aber zu meinem Anliegen
leider nichts (außer Strg+Punkt o.ä.)
Diesen Code habe ich gebastelt, wenn ich den auf eine Tastenkombi lege
wäre das ja schon fast die Lösung für mich.
Nur, wie mache ich es daß ich ohne den erstellten Kommentar neu aufrufen zu müssen
gleich den Cursor unter dem vom Code eingefügten habe und meinen Text eingeben kann?
Sub Kommentar()
With ActiveCell
If ActiveCell.Comment Is Nothing Then
.AddComment
'.Comment.Visible = True
.Comment.Text Text:=Application.UserName & ":" & Chr(10) & Date & " " & Time & Chr(10) & ""
'.Comment.Shape.Select True
Else
'ggfs. vorh. Kommentar um Datum/Zeit ergänzen
End If
End With
End Sub
Reinhard