ist das möglich? Mit einem Klick auf die Schaltfläche "OK" ein Kommentar in die Zelle A1 einzufügen?
Gruß
Ahmadian
Sub Makro1()
Range("A1").Select
Range("A1").AddComment
Range("A1").Comment.Visible = False
Range("A1").Comment.Text Text:="Hier gibst du den Text ein"
With Selection.Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = True
End With
End Sub
Gruß
Martin
P.S. siehe auch http://www.add-in-world.com/katalog/xl-kommentar-pro/