title image


Smiley Re: VBA (Excel) Kommentare inkl. Zeilen ausgeben
Vielleicht etwa so:





Sub asdf()



Dim objWs As Excel.Worksheet

Dim objCom As Excel.Comment

Dim i As Long



i = 0

For Each objWs In ThisWorkbook.Sheets

For Each objCom In objWs.Comments

i = i + 1

With ThisWorkbook.Sheets("Ausgabe")

.Cells(i, 1).Value = objWs.Name

.Cells(i, 2).Value = objCom.Parent.Address

.Cells(i, 3).Value = objCom.Text

End With

Next objCom

Next objWs



Set objCom = Nothing

Set objWs = Nothing



End Sub







Schönen Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: