Rahmenfarbe aktive Zelle ändern ?

[Melanie Breden]

Hallo Michael,

In Excel97 soll die Farbe des Rahmens geändert werden, der
die aktive Zelle kennzeichnet.
Standardmässig ist dieser ja Schwarz und Fett..... der
soll jetzt beispielsweise rot werden.
Eine Einstellung in Excel gibts dafür nicht. Hat einer von
Euch eine Idee ??

du könntest aus der Zeichnen-Symbolleisten einen Rahmen um die Zelle ziehen.
Halte die 'Alt'-Taste beim aufziehen gedrückt, damit sich die Größe
des Elementes an die Zellen anpasst.
Formatiere die Rahmenlinie in rot und die Füllung auf 'keine Füllung'

[Michael Holtmann]

Hallo Melanie,

-----Originalnachricht-----

In Excel97 soll die Farbe des Rahmens geändert werden,
der die aktive Zelle kennzeichnet.

du könntest aus der Zeichnen-Symbolleisten einen Rahmen
um die Zelle ziehen.
Halte die 'Alt'-Taste beim aufziehen gedrückt, damit sich
die Größe
des Elementes an die Zellen anpasst.
Formatiere die Rahmenlinie in rot und die Füllung
auf 'keine Füllung'

...sieht gut aus :-)

aber so ein Rahmen bleibt ja nur an der Position, an der
ich ihn eingezetzt habe. Wenn ich mit der Maus auf
irgendeine andere Zelle klicke, soll diese dann den roten
Rahmen bekommen.... allerdings nur auf dem Bildschirm.

Weisst', was ich meine ??


Gruss
Michael

[Klaus Beach]

Hallo zusammen,
In Excel97 soll die Farbe des Rahmens geändert werden, der
die aktive Zelle kennzeichnet.

Hallo Michael,

vielleicht hilft dir dieser Ansatz weiter:


Dim topcolor, leftcolor, rightcolor, bottomcolor
Dim altezelle

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not IsEmpty(topcolor) Then
Range(altezelle).Borders(xlTop).ColorIndex = topcolor
Range(altezelle).Borders(xlLeft).ColorIndex = leftcolor
Range(altezelle).Borders(xlRight).ColorIndex = rightcolor
Range(altezelle).Borders(xlBottom).ColorIndex = bottomcolor
End If

topcolor = ActiveCell.Borders(xlTop).ColorIndex
leftcolor = ActiveCell.Borders(xlLeft).ColorIndex
bottomcolor = ActiveCell.Borders(xlBottom).ColorIndex
rightcolor = ActiveCell.Borders(xlRight).ColorIndex

With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With
altezelle = ActiveCell.Address
End Sub

mfg
Klaus

[Klaus Beach]

Funktioniert soweit prima, aber: komischerweise wird die
Farbe rot nicht sichtbar, weil ja noch der schwarze Rahmen
der aktivien Zelle hinzukommt und Excel zeigt den Rahmen
dann Hellblau an. Aber vielleicht finde ich da auch noch
einen Weg.

Nimm statt Colorindex =3 den Colorindex = 28 (blau), dann wird er schön
rot :-)

mfg
Klaus

[Thomas Ramel]

Grpezi Michael

In Excel97 soll die Farbe des Rahmens geändert werden, der
die aktive Zelle kennzeichnet.
Standardmässig ist dieser ja Schwarz und Fett..... der
soll jetzt beispielsweise rot werden.
Eine Einstellung in Excel gibts dafür nicht. Hat einer von
Euch eine Idee ??

Du möchtest also die aktive Zelle besser hevorheben?
Versuche es mal mit dem folgenden Add-In, das Du nach Bedarf ein- und
ausschalten kannst und das in allen aktiven Mappen wirksam ist, nicht bloss
in derjenigen mit dem Code:

http://www.cpearson.com/excel/RowLiner.htm