VBA Kommentarfeld

Question

Hallo,

in einer Schleife werden Textinformationen erzeugt. Diese möchte ich nach Möglichkeit in einem Kommentarfeld in "A1" zeilenweise auflisten. Geht das?
Gruß
Andreas

Answer 1

so zum Beispiel:

Text1 = "Test1"
Text2 = "Test2"

Range("A1").AddComment
Range("A1").Comment.Visible = False
Range("A1").Comment.Text Text:=Text1 & Chr(10) & Text2

Text1 und Text2 sind hier zwei Beispielvariablen
Chr (10) macht den Zeilenumbruch

Answer 2

Comment.Visible = False

kannst du natürlich auch auf "True" setzen wenn du willst dass der Kommentar dauerhaft angezeigt werden soll (anstatt nur bei Mouseover)

Answer 3

Hallo,
danke, genau das habe ich gesucht. Schönen Abend noch!!
Gruß

Answer 4

Hallo,

es gibt doch noch ein kleines Problem....

Wie kann ich verhindern, dass der Kommentar in der Schleife bei jedem Durchlauf immer wieder überschrieben wird anstatt den neuen Eintrag in neuer Zeile hinzuzufügen.
Gruß

Answer 5

idealerweise "sammelst" du während deiner Schleife den Text in Variable(n) zusammen und schreibst ihn nach Ende der Schleife in das Kommentarfeld.

Soll das Kommentarfeld aber tatsächlich ständig aktualisiert werden musst du erst den aktuellen Inhalt lesen

Kommentartext = Range("A1").Comment.Text

und dann wieder zusammen mit dem neuen Text schreiben

Range("A1").Comment.Text Text:=Kommentartext & Chr(10) & neuerText

das Hinzufügen des Kommentars selber muss in diesem Fall aber vor der Schleife stehen

Range("A1").AddComment
Range("A1").Comment.Visible = False

Answer 6

..danke für die Antwort noch zu später Stunde!
Gruß