wie lese ich per VBA alle Kommentare aus einem Range aus?
Falls keine Kommentare vorhanden sind, soll nichts zurückgegeben werden.
Vielen Dank für eure Hilfe.
Gruß Jonatan
Sub Kommentare()
Set ASh = ActiveSheet
Sheets.Add before:=Sheets("Tabelle1")
z = 1
For Each a In ASh.Comments
Sheets(1).Cells(z, 1) = a.Parent.Address
Sheets(1).Cells(z, 2) = a.Text
z = z + 1
Next a
End Sub
Sub LeseKommentare()
Dim rngBereich As Range
Dim myAr() As String
Dim L As Long
'Bereich wo die Kommentare vor kommen könnten
Set rngBereich = Range("A1:D10")
On Error Resume Next
Set rngBereich = rngBereich.SpecialCells(xlCellTypeComments)
On Error GoTo 0
If Not rngBereich Is Nothing Then
Redim myAr(rngBereich.Cells.Count - 1, 1)
For Each rngBereich In rngBereich
myAr(L, 0) = rngBereich.Comment.Text
myAr(L, 1) = rngBereich.Address(0, 0)
L = L + 1
Next rngBereich
'Ausgabe
For L = Lbound(myAr) To Ubound(myAr)
MsgBox "Kommentar aus Zelle: " & myAr(L, 1) & vbCr & vbCr & myAr(L, 0)
Next L
End If
End Sub
Gruß Tino