Hallo zusammen, 

kann mir jemand sagen wie der Cod für die neuen Kommentare lautet?

Ich möchte folgendes Makro umschreiben für die Kommentar, aktuell betrifft es die Notizen:

Public Sub KommentareAuslesen1()
' vor Makroaufruf Zelle in Spalte der Kommentare markieren
Dim rngComment As Range

With Columns(ActiveCell.Column)
' Spalte einfügen
.Offset(0, 1).Insert Shift:=xlToRight

On Error Resume Next
For Each rngCom In .SpecialCells(xlCellTypeComments)

If Err.Number > 0 Then
MsgBox "Keine Kommentarzellen vorhanden"
Exit Sub
End If

rngCom.Offset(0, 1).Value = rngCom.Comment.Text
Next rngCom

' Kommenatre löschen
.SpecialCells(xlCellTypeComments).ClearComments
End With
End Sub