soll heissen
in der zelle 2 die formel gans einfach: =zelle1
zb. in a2 =a1
serge
Sub kommentar()
Selection.Copy
ActiveCell.Offset(0, 1).Activate
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
Sub kommentar()
Selection.Copy
ActiveCell.Offset(0, 1).Activate
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub