kann ich mehreren markierten Zellen gleichzeitig das gleiche Kommentar anfügen.
Wer weiss wie das gehen könnte.
Dankeschön für jeden Tipp
Sub Makro5()
Dim rngSource, rngTarget As Range
Set rngSource = Application.InputBox(prompt:= _
"Markieren Sie bitte eine Zelle,die den Kommentar enthält", Type:=8)
Set rngTarget = Application.InputBox(prompt:= _
"Ziel-Zellen", Type:=8)
rngSource.Copy
rngTarget.Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub