ich möchte die Zelleninhalte einen Spalte U (3:600) in noch nicht vorhandene Kommentarfenster schreiben lassen. Zum Beispiel soll ein Wert 3.000 in das Kommentarfenster übernommen werden.
Ist das möglich?
Vielen Dank.
Thomas
Sub Kommentare()
Dim rngZelle As Range
For Each rngZelle In Range("U3:U600")
--> Debugging If rngZelle "" Then rngZelle.AddComment rngZelle.Value Next rngZelle
End Sub
Sub Kommentare()
Dim rngZelle As Range
For Each rngZelle In Range("U3:U600")
If rngZelle "" Then rngZelle.AddComment rngZelle.Value
Next rngZelle
End Sub
Sub Kommentare()
Dim rngZelle As Range
For Each rngZelle In Range("U3:U600")
If rngZelle "" Then
rngZelle.ClearComments
rngZelle.AddComment rngZelle.Text
End If
Next rngZelle
End Sub
Gruß Matthias