Kennt jemand die Makrolösung für folgende Funktion?
Bei Doppelklick in eine beliebige Zelle, soll man die Möglichkeit erhalten, einen Kommentar einzutragen.
Bei allen Helfern bedanke ich mich im voraus bereits bestens.
Grüsse, Glen
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:="erste Zeile" & Chr(10) & "Zweite Zeile"
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
dim eing as string
eing = Inputbox("Bitte hinterlegen Sie ihren Kommentar!"
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=eing
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim eing As String
eing = InputBox("Bitte hinterlegen Sie ihren Kommentar!")
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=eing
End Sub