Ich suche nach einem Makro, der die Werte in der Spalte D als Kommentare in die Spalte C einfügt. Dies soll er solange machen, bis die erste leere Zelle in Spalte D kommt.
Wie kann ich das mit VBA tun?
Besten Dank bereits im Voraus!
Sub teste()
Dim Zeile As Long
Zeile = 2
Do While Cells(Zeile, 4) ""
If Not Cells(Zeile, 3).Comment Is Nothing Then
Cells(Zeile, 3).ClearComments
End If
Cells(Zeile, 3).AddComment (CStr(Cells(Zeile, 4).Value))
Zeile = Zeile + 1
Loop
End Sub