Eventuell soll nun mit den Kommentaren weiter gearbeitet werden. Um diese auszulesen, und in Spalte B zu schreiben, kann folgender Code verwendet werden.

 

 

Code für ein allgemeines Modul:

 

Public Sub Kommentare_auslesen()

'Code für ein allgemeines Modul

Dim Zelle As Range

 

If ActiveSheet.Comments.Count = 0 Then

  MsgBox "Das aktive Tabellenblatt enthält keine Kommentare.", 48

  Exit Sub

End If

 

For Each Zelle In Range("A:A").SpecialCells(xlCellTypeComments)

  Zelle.Offset(0, 1).Value = Zelle.Comment.Text

Next

End Sub

 

Das Ergebnis nach Codeausführung.

 

 

Hier wurden nun alle Kommentare ausgelesen. 2x von Jürgen_H und 1x von Herbert.

Sollen hingegen nur die Kommentare eines bestimmten Autors ausgelesen werden, z.B nur meine ( Jürgen_H ) dann geht dies mit folgendem Code:

 

 

Public Sub Kommentare_auslesen_von_Autor()

'Code für ein allgemeines Modul

Dim Zelle As Range

 

If ActiveSheet.Comments.Count = 0 Then

   MsgBox "Das aktive Tabellenblatt enthält keine Kommentare.", 48

   Exit Sub

End If

 

For Each Zelle In Range("A:A").SpecialCells(xlCellTypeComments)

   If Zelle.Comment.Author = "Jürgen_H" Then

      Zelle.Offset(0, 1).Value = Zelle.Comment.Text

   End If

Next

End Sub