Kommentare die leer sind löschen
28.06.2017 12:43:22
Richi
Hallo Zusammen
Folgenden Code habe ich, welcher einwandfrei Funktioniert. Er konvertiert Zelleninhalt in Zellen Kommentar um. Leider hat's dabei auch Zellen Kommentare die leer sind. Diese möchte ich löschen. Kann mir jemand bei diesem Code helfen? Neuer Code oder integriert in unten angefügtem.
Vielen Dank
Richi
Sub Copy_Comment()
Dim rng As Range
For Each rng In ThisWorkbook.Worksheets("Kopiert").Range("B6:RB69").SpecialCells( _
xlCellTypeConstants)
With Worksheets("Single Line View").Range(rng.Offset(0, 0).Address)
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=CStr(rng)
End With
Next rng
End Sub