Kommentar per Inputbox
02.12.2005 02:01:27
Anja
ich möchte über die Inputbox ein kommentar einfügen und das auch über mehrere zeilen. klappt auch super, allerdings wenn ich keinen kommentar eingeben möchte und abbrechen klicke erscheint trotzdem ein leerer Kommentar in den zellen. Kann man das irgendwie ändern? bei meinem Code bleibt er bei inputbox.cancel stehen.
wäre ganz toll wenn einer nen tip hätte.
Sub Kommentar()
mytext = Application.InputBox("Kommentar")
If Application.InputBox.Cancel Then
Selection.ClearComments
Else
Dim Zelle As Range
On Error Resume Next
For Each Zelle In Selection
Zelle.AddComment
Zelle.Comment.Text Text:=mytext
Zelle.Comment.Shape.TextFrame.Characters.Font.Size = 11
Zelle.Comment.Shape.TextFrame.AutoSize = True
Next Zelle
End If
End Sub
gruß Anja