VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Kommentare löschen und deren Texte in Zellen übernehmen

Gruppe

Allgemein

Bereich

Kommentar

Thema

Kommentare löschen und deren Texte in Zellen übernehmen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kommentar