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ß MatthiasDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen