AW: kommentare aus tabellenblatt auslesen
10.07.2009 11:13:21
Tino
Hallo,
hier mal ein Beispiel.
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