Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

kommentare aus tabellenblatt auslesen

kommentare aus tabellenblatt auslesen
Jonatan
Hallo,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: kommentare aus tabellenblatt auslesen
10.07.2009 11:01:05
robert
hi,
probier das mal
gruß
robert
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

AW: kommentare aus tabellenblatt auslesen
10.07.2009 11:04:51
Jonatan
Hi Robert,
sauber!
Läuft einwandfrei.
DANKE
Gruß Jonatan
..fein.. :o) owT
10.07.2009 11:10:38
robert
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
Anzeige

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige