Guten Morgen,

wie kann ich den Text aus Kommentar in Inputbox übertragen!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim eing As String
If ActiveCell.Comment Is Nothing Then
eing = InputBox("Text eingeben!")
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=eing
Else
On Error Resume Next
MsgBox ActiveCell.Comment.Text
InputBox (ActiveCell.Comment.Text)

End If
End Sub

Vielen Dank!

Gruß
Mirel