10 Aufrufe
Gefragt in Tabellenkalkulation von
Hallo zusammen,

vielleicht waere jemand so nett und kann mir den code fuer die nachtraegliche

Aenderung der Hintergrundfrarbe in gelb bei vorhandenen Kommentarten in Mircosoft

Excel geben.

PS Ich habe in VBA nur sehr rudimentaere Kenntnisse

Ich bedanke mich im voraus

Schoenes Restwochenende fuer Euch alle

Wolf

6 Antworten

0 Punkte
Beantwortet von nighty Experte (6.3k Punkte)
Bearbeitet von nighty
Hi Wolf

Sub Comment_Farbe_In_Bereich()
For Each Zelle In Range("A1:C100")
   If Not Range(Zelle.Address).Comment Is Nothing Then              Range(Zelle.Address).Comment.Shape.Fill.ForeColor.SchemeColor = 42

Next Zelle
End Sub

Gruß Nighty

Formatirunsfehler des Forums!

Diese Zeile kommt direkt nach Then

Range(Zelle.Address).Comment.Shape.Fill.ForeColor.SchemeColor = 42
0 Punkte
Beantwortet von wolf17 Einsteiger_in (13 Punkte)
Danke Nighty,

leider laeuft es beim kompilieren auf eine Fehlermeldung

bei Zelle sagt er Variable nicht definiert....

Kannst Du noch einmal bitte helfen

Danke!!

Wolf
0 Punkte
Beantwortet von nighty Experte (6.3k Punkte)
Hallo Wolf

Hatte ich übersehen :-)

Sub Comment_Farbe_In_Bereich()
Dim Zelle As Object
For Each Zelle In Range("A1:C100")
   If Not Range(Zelle.Address).Comment Is Nothing Then Range(Zelle.Address).Comment.Shape.Fill.ForeColor.SchemeColor = 42
Next Zelle
End Sub

Gruß Nighty
0 Punkte
Beantwortet von wolf17 Einsteiger_in (13 Punkte)
Danke Dir Nighty vielmals fuer die sehr schnelle Hilfe.

Das kompilieren laeuft jetzt fehlerfrei.

Aber in Excel passiert nichts....weder beim neu anlegen noch beim aendern.

die Farbe bleibt immer noch auf der Standardfarbe

Danke Dir Nighty vielmals fuer die sehr schnelle Hilfe.

Das kompilieren laeuft jetzt fehlerfrei.
0 Punkte
Beantwortet von wolf17 Einsteiger_in (13 Punkte)
Hallo Nighty,

es funktioniert nun alles, so wie gewuenscht.

Ich Danke Dir recht herzlich und wuensche Dir ein schoenes Wochenende

oder was davon noch uebrig ist.

Liebe Gruesse und noch einmal herzlichen Dank

Wolf
...