Danke
Mifei
Die Userform rufst Du mit folgendem Makro im
Tabellenblatt auf:
Sub Userform_aufrufen
Load Userform1
Userform1.Show
End Sub
Private Sub btnESC_Click()
Code eingefügt mit Syntaxhighlighter 1.14
Unload Me
End Sub
Private Sub btnOK_Click()
Application.ScreenUpdating = False
On Error Resume Next
Dim CommentVar As Variant
CommentVar = dlgCommen.txtComment
Set Cmt = ActiveCell.AddComment
With Cmt.Shape.TextFrame
.Characters.Font.Name = "Arial"
.Characters.Font.Size = 8
.AutoSize = True
ActiveCell.Comment.Text Text:=Chr$(10) & CommentVar
ActiveCell.Comment.Text Text:=CommentVar
ActiveCell.Comment.Visible = False
End With
Unload Me
Application.ScreenUpdating = True
End Sub
Falls Du noch ein Problem hast,melde dich per E-Mail.
Gruß Herbert