Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
136to140
136to140
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Farbe Indikatoren ändern

Farbe Indikatoren ändern
17.07.2002 21:47:35
Wolfgang Jung
Bei uns hat eine nette Kollegin ein "dummes" Problem
Ihr Chef steht auf rote Zeilen bei wichtigen Sachen in einer Tabelle (ja, solche gibts noch)
Sie möchte gerne die Farbe des Indikators für die Kommentare ändern da man rot auf rot schlecht sieht - versteh ich ja
Gibt es einen Trick oder (wäre peinlich) einen einfachen Weg ?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Farbe Indikatoren ändern
18.07.2002 02:04:01
Grafritz
sub aendern()
Cells.SpecialCells(xlCellTypeComments).Select
For each Zelle in selection
if Zelle.interior.colorindex = 3 then
Zelle.Comment.Indicator.Color = Rgb(0,0,0)
end if
next
end sub
Re: Farbe Indikatoren ändern
18.07.2002 02:19:19
L.Vira
Die Farbe des Indikators nicht, aber eine Krücke...

Option Explicit
Sub IF_COMMENT()
Dim c As Range
Dim aC As Range
Set aC = ActiveCell
On Error GoTo ende 'Es sind keine Kommentare vorhanden
Cells.SpecialCells(xlCellTypeComments).Select
For Each c In Selection
If c.Interior.ColorIndex = 3 Then
c.Interior.ColorIndex = 19
End If
Next
ende:
aC.Select
Set aC = Nothing
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige