Kommentar mit Schaltfläche einfügen
11.09.2007 16:01:15
Ben
Habe mit Hilfe des Archivs folgenden Code gefunden, damit die User mit einer Schaltfläche einen Kommentar einfügen können:
Private Sub CommandButton1_Click()
If (MsgBox("Wollen Sie einen Kommentar einfügen?", vbYesNo + vbQuestion, "Neuer Abruf")) = _
vbYes Then
Dim myCom As Comment
Dim myText As String
On Error Resume Next
myText = InputBox("Bitte Kommentar eingeben")
myText = Replace(myText, ".", "." & vbLf)
ActiveCell.Comment.Delete
Set myCom = ActiveCell.AddComment
With myCom
.Visible = True
.Text Text:=myText
.Shape.LockAspectRatio = msoFalse
.Shape.TextFrame.AutoSize = True
End With
End If
End Sub
Dieser funktioniert auch bestens; in der Zelle, in der der Cursor steht, wird der Kommentar eingefügt. Ich möchte nun den User aber noch fragen, ob er in dieser Zelle einen Kommentar eingeben will. Also z.B. "Wollen Sie in Zelle A4 einen Kommentar einfügen?"
Da ich mit VBA noch nicht zu bewandert bin, schaffe ich das nicht alleine. Kann jemand weiter helfen?
Vielen Dank und Gruss
Ben
