Durch nette Helfer kann ich seit einiger Zeit folgend geniales Makro nutzen.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim eing As String
eing = InputBox("Bitte hinterlegen Sie ihren Kommentar!")
If eing <> "" Then
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=eing
End If
End Sub
Nun fällt mir nach einiger Zeit ein kleiner Schönheitsfehler auf. Kann mir bitte jemand sagen, wie man dieses "Fehlerchen" entfernen kann.
Das Makro ruft nach Doppelklich in einer beliebigen Zelle eine Inputbox auf, in der man einen Kommentar ablegen kann. Nach bestätigen mit OK ist der Kommentar drin und die Inputbox weg (was so auch i.O. ist). Doch die Zelle ist jetzt "offen"; also bereit um hinein zu schreiben. Genau das ist der von mir bezeichnete "Schönheitsfehler". Kann man das Makro dahingehend erweitern, dass nach drücken auf OK (und auch Abbrechen) die nächste Zelle angesprungen wird, ohne das diese "offen" ist?
Besten Dank im voraus allen Helfern
Grüsse, Glen