|
Hallo zusammen,
ich möchte einen VBA Code schreiben bei dem alle Notizen bzw. Kommentare auf einem Worksheet aufgelistet werden. Hierzu habe ich auch schon einen Code gefunden. Darin wird aber nach den Notizen gesucht. Was muss ich am Code ändern, damit sich dieser auf die Kommentare bezieht?
Hier der Code:
Sub ShowCommentsAllSheets()
'Update 20140508
Dim commrange As Range
Dim rng As Range
Dim ws As Worksheet
Dim newWs As Worksheet
Set newWs = Application.Worksheets.Add
newWs.Range("A1").Resize(1, 4).Value = Array("Sheet", "Address", "Value", "Comment")
Application.ScreenUpdating = False
On Error Resume Next
For Each ws In Application.ActiveWorkbook.Worksheets
Set commrange = ws.Cells.SpecialCells(xlCellTypeComments)
If Not commrange Is Nothing Then
i = newWs.Cells(Rows.Count, 1).End(xlUp).Row
For Each rng In commrange
i = i + 1
newWs.Cells(i, 1).Resize(1, 4).Value = Array(ws.Name, rng.Address, rng.Value, rng.Comment.Text)
Next
End If
Set commrange = Nothing
Next
newWs.Cells.WrapText = False
Application.ScreenUpdating = True
End Sub
Ich denke ich muss diesen Part "ws.Cells.SpecialCells(xlCellTypeComments)" ändern. Ich weiss aber nicht wie.
Könnte mir jemand helfen?
Vielen Dank.
TOM
|