Zelle A;B;C in einer Kommentarzelle D abspeichern

Sub Kommentar_eingeben_mehrere_cellen()
Dim rgeInputRange As Range, mCell As Range, strKommentarText As String
Set rgeInputRange = Excel.Application.InputBox(prompt:="Prompt", Title:="Title", Type:=8)
For Each mCell In rgeInputRange.Cells
strKommentarText = strKommentarText & " " & CStr(mCell.Value)
Next mCell
With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.Text Text:=strKommentarText
End With
End Sub