Text in Kommentar umwandeln

Sprache / Programm: Excel ab Version 2000

Beschreibung

Die Funktion nimmt den Inhalt einer Zelle und kopiert ihn in den Kommentar der Zelle. Wenn bereits ein Kommentar vorhanden ist, wird der neue Kommentar vor den alten Kommentar gesetzt.

Die Formatierung kann über Zeilenumbrüche im Text der Zelle gesteuert werden.

VBA-Quelltext

Public Sub TextInKommentare()
Dim Zelle As Range
For Each Zelle In Selection.Cells

' Ist die Zelle leer oder enthält einen Fehler?
If Not (IsError(Zelle) Or IsEmpty(Zelle)) Then
If Trim(Zelle.Value) = vbNullString Then
' Enthält die Zelle schon einen Kommentar?
If Zelle.Comment Is Nothing Then
Zelle.AddComment Zelle.Value
Else
' Neuen Inhalt vor bestehendem Inhalt anordnen
Zelle.Comment.Text Zelle.Value & vbLf & Zelle.Comment.Text
End If

' Größe automatisch festlegen
Zelle.Comment.Shape.TextFrame.AutoSize = True
End If
End If
Next Zelle

End Sub

Argumente der Funktion/Prozedur

Auswahl: Das Programm verwendet die aktuelle Auswahl im Tabellenblatt

Hinweis

Um den Kommentar in andere Felder zu verschieben, kann die Funktion Strg+C auf der Auswahl mit den Kommentaren und Bearbeiten -> Inhalte einfügen -> Kommentare für die neue Auswahl benutzt werden.

Anwendungsgebiete, Fehler und Warnungen

Das Programm ignoriert leere Zellen Inhalte oder Fehlerwerte in Zellen.