ich bräuchte bitte wieder mal kurz eure Hilfe.
Mit einer For-Schleife sollen die Buchstaben in der Spalte "A" als Kommentar in die Zelle B1 geschrieben werden.
ERGEBNIS: Kommentar in der Zelle B1 => abcd
Hier der Code und die Datei zum Spielen.
https://www.herber.de/bbs/user/112372.xlsm
Sub Kommentar()
For i = 1 To 4
If Cells(1, 2).Comment Is Nothing Then 'Wenn noch kein Kommentar vorhanden, dann
Cells(1, 2).AddComment
Cells(1, 2).Comment.Text Text:=Cells(i, 1)
Else
Cells(1, 2).Comment.Text Text:=Cells(i, 1).Comment.Text 'Wenn Kommentar bereits _
vorhanden, ergänze diesen Kommentar
End If
Next i
End Sub
GrußDasha