title image


Smiley Oder mit Specialcells
Hi,



so brauchst du keine Schleife zur Ermittlung der Zellen mit Kommentar:







Sub kommsikommsa()

On Error Resume Next

Dim c As Range

For Each c In Cells.SpecialCells(xlCellTypeComments)

    MsgBox c.Address(0, 0)

Next

If Err.Number = 92 Then MsgBox "Das Blatt enthält keine Zellkommentare!"

End Sub





Code eingefügt mit Syntaxhighlighter 4.0








Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: