Excel 2002 - Aktive Zeile farbig hervorheben

Computer: Software & Programmierung Visual Basic
#1

In einer Arbeitsmappe wird mit dem Eintrag im Workbook die aktive Zeile farbig hervorgehoben.

"Private Sub Workbook_SheetSelectionChange( _
ByVal sh As Object, ByVal Target As Excel.Range)

Static AlteZelle As Range

If Not AlteZelle Is Nothing Then
AlteZelle.EntireRow.Interior.ColorIndex = _
xlColorIndexNone
End If

Target.EntireRow.Interior.ColorIndex = 15
Set AlteZelle = Target
End Sub"

Soweit gut.

Wenn in der Arbeitsmappe aber Zellen oder Bereiche bereits mit einer Farbe hinterlegt sind, wird die Farbe nach dem überfahren mit dem Cursor gelöscht.

Ich möchte, dass die Zeile in der der Cursor steht die Farbe wechselt, nachher aber wieder die ursprüngliche Farbe annimmt.

Wer kennt die Lösung?

Im Voraus Danke für die Hilfe

#2

Grüezi SLGLOBI

In einer Arbeitsmappe wird mit dem Eintrag im Workbook die
aktive Zeile farbig hervorgehoben.

Warum soll/muss das über VBA-Code gemacht werden?
In aller Regel hilft es, den Kontrast am Monitor herunter zu drehen um die Sichtbarkeit zu verbessern.

Ansonsten finde ich es besser ein AddIn für diese Markierungen zu verwenden, das dann auch die Formate der Zellen unberührt lässt:

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

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
#3

Hallo Thomas

Danke für die schnelle Antwort.

Es handelt sich um eine sehr grosse Tabelle. Mit der Monitoreinstellung wird das ganze nicht übersichtlicher.
Mit dem erwähnten VBA-Code wird die ganze Zeile farblich markiert und die Zelle mit einem schwarzen Rand gekennzeichnet. Nur eben mit dem Fehler, dass die farbigen Zellen nacher weiss sind.

Wenn du mir eine Lösung mit einem Addin hast bin ich dir dankbar.

Gruus
SLGLOBI

#4

Grüezi SLGLOBI

Wenn du mir eine Lösung mit einem Addin hast bin ich dir
dankbar.

…den Link zum Download habe ich dir ja schon genannt… :smile:

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
#5

Hallo super leistungsfähiger Globi :smile:,

In einer Arbeitsmappe wird mit dem Eintrag im Workbook die
aktive Zeile farbig hervorgehoben.

wie wäre es mit dieser einfachen Variante:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Target.EntireRow.Select
Target(1, 1).Activate
End Sub

Hier hat Sepp noch paar varianten gezeigt:
http://www.herber.de/bbs/user/78572.xlsm

Mal zu deinem Code. Ich habe ihn nur kurz getestet. Z.B. was geschieht wenn man zwischen den Blättern hin und her hüpft.
Wie auch immer, irgendwie habe ich es geschaftt daß z.B. Zeile 11 dauerhaft gefärbt blieb und dein Code schon funktionierte wenn ich dann Zellen in anderen Zeilen ansprang, aber ich hatte dann immer zwei gefärbte Zeilen.
das war erst weg als ich dann eine Zelle in Zeile 11 ansprang.

Was ich noch nicht prüfte, kannst du genauso gut, was passiert wenn die Mappe gespeichert wird.
Auch das muß man prüfen wenn man so Code entwickelt.

Dies alles ist jetzt nur für dich gedacht wenn du am Codieren interessiert bist.
Benutzen würde ich eine der fertigen Lösungen. Aber umschreiben, sofern die Lösungen das nicht von sich aus anbieten, alle Lösungen sodaß ich sie durch einen Klick auf ein Symbol jederzeit ab- oder zuschalten kann.
So schön diese Markierungen auch bei manchen Mappen sein mögen, bei anderen nervt mich das genauso viel.

Entscheide dich also für eine Lösung und frage hier ggfs. nach wie man das machen könnte mit dem einen Klick.
Weitere Lösungsideen findest du wenn du im Internet nach
fadenkreuz.xls oder fadenkreuz.xla recherchierst.

Zu dem wie du hier Code zeigst. Die Gänsefüßchen verstehe ich nicht was die sollen.
Benutze anstelle dessen lieber den Pre-Tag, wird unterhalb des Eingabefensters erläutert.
Oberhalb des Eingabefensters haste sogar einen Button dafür.

Gruß
Reinhard