Hello,
I could give the code in VBA to read the comments. Then you could adapt that in the appropriate language.
Unfortunately, my knowledge of English is very poor
Sub KommentarzellenAuflisten()
Dim raZelle As Range
Dim wsTabelle As Worksheet
Dim loZeile As Long
Dim raBereich As Range
loZeile = 1
For Each wsTabelle In Worksheets
If wsTabelle.Name <> "TormekCalc" Then
On Error Resume Next
Set raBereich = wsTabelle.UsedRange.SpecialCells(xlCellTypeComments)
On Error GoTo 0
If Not raBereich Is Nothing Then
For Each raZelle In raBereich
With Worksheets("TormekCalc")
.Cells(loZeile, 1) = raZelle.Address
.Cells(loZeile, 2) = raZelle.Parent.Name
.Cells(loZeile, 3) = raZelle.Comment.Text
End With
loZeile = loZeile + 1
Next raZelle
End If
Set raBereich = Nothing
End If
Next wsTabelle
End Sub
I could give the code in VBA to read the comments. Then you could adapt that in the appropriate language.
Unfortunately, my knowledge of English is very poor
Sub KommentarzellenAuflisten()
Dim raZelle As Range
Dim wsTabelle As Worksheet
Dim loZeile As Long
Dim raBereich As Range
loZeile = 1
For Each wsTabelle In Worksheets
If wsTabelle.Name <> "TormekCalc" Then
On Error Resume Next
Set raBereich = wsTabelle.UsedRange.SpecialCells(xlCellTypeComments)
On Error GoTo 0
If Not raBereich Is Nothing Then
For Each raZelle In raBereich
With Worksheets("TormekCalc")
.Cells(loZeile, 1) = raZelle.Address
.Cells(loZeile, 2) = raZelle.Parent.Name
.Cells(loZeile, 3) = raZelle.Comment.Text
End With
loZeile = loZeile + 1
Next raZelle
End If
Set raBereich = Nothing
End If
Next wsTabelle
End Sub