ist es in Excel auch möglich bei mehreren markierten Zellen ein Kommentar gleichzeitig einzufügen?
Sub test()
For i = 1 To 10
Worksheets(1).Range("a" & i).AddComment.Text "Test"
Next i
End Sub
Sub Add_Comment()
Dim myCom As String
Dim myC As Range
myCom = InputBox("Zeilenumrüche sind nicht möglich", "Kommentartext eingeben", "")
If myCom = "" Then
MsgBox "Keine Kommentare eingefügt"
Exit Sub
End If
For Each myC In Selection
If myC.Comment Is Nothing Then
myC.AddComment
End If
With myC.Comment
.Visible = False
.Text Text:=myCom
End With
Next
End Sub