Kommentare aus Zellinhalten generieren

101076



Das Makro fügt innerhalb der Selektion in jede Zelle einen Kommentar ein. Inhalt des Kommentars ist das aktuelle Datum sowie der entsprechende Zellinhalt.

Sollte bereits ein Kommentar vorhanden sein, wird dieser nicht überschrieben! Der Kommentar wird dementsprechend nur in eine nicht kommentierte Zelle eingefügt.

Public Sub kommentar_aus_zelle_einfuegen()
Dim kom As Comment
Dim zelle As Object

For Each zelle In Selection
On Error Resume Next
    Set kom = zelle.AddComment
    kom.Text Date & Chr(10) & zelle.Value
Next zelle
End Sub

Mit dem folgenden Code werden nur Kommentare in Zellen eingefügt, die einen Eintrag enthalten. Zellen ohne Werte oder Texte werden nicht berücksichtigt, auch wenn diese markiert sind.

Public Sub kommentar_aus_zelle_einfuegen()
'** Dimensionierung der Variablen
Dim kom As Comment
Dim zelle As Object

'** Errorhandling deaktivieren
On Error Resume Next

'** Alle markierten Zellen durchlaufen
For Each zelle In Selection
  If zelle.Value <> "" Then
    Set kom = zelle.AddComment
    kom.Text Date & Chr(10) & zelle.Value
  End If
Next zelle

End Sub

 

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800