versuche gerade aus mehreren, dank Euerer hilfe, funzzenden codes einen neuen zusammenzustricken.
von der Startzelle aus soll der text aus C7 in jede zelle der spalte eingetragen werden, bis zur 1. leeren zelle.
Sub Kommentar()
On Error Resume Next
Start = InputBox("adresse der startzelle eingeben")
'On Error Resume Next
spalte = Range(Start).Column
zeile = Range(Start).Row
ende = Range(Start).End(xlDown).Row
For j = Start To ende
With Range(Start)
.AddComment
.Comment.Text Text:=[C7].Text
End With
Next j
End Sub
thx for hlp
thomas