Zelle A;B;C in einer Kommentarzelle D abspeichern
03.06.2018 21:00:18
Nicolaj
' einen Kommentar beinhaltet
'Zelleninhalt in einer Kommandozelle verbinden
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
' Kann mir jemand mit einer Erweiterung helfen ?