Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Kommentare löschen und deren Texte in Zellen übernehmen

Gruppe

Kommentar

Problem

Die Kommentare in Spalte C sollen gelöscht und als Texte in Spalte D übernommen werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub SplitComments()
   Dim cmt As Comment
   Dim iRow As Integer
   For iRow = 1 To WorksheetFunction.CountA(Columns(3))
      Set cmt = Cells(iRow, 3).Comment
      If Not cmt Is Nothing Then
         Cells(iRow, 4) = Cells(iRow, 3).Comment.Text
         Cells(iRow, 3).Comment.Delete
      End If
   Next iRow
End Sub

Sub a()
   Range("A1").comm
End Sub