Excel Anwender, welche mit grossen Tabellen arbeiten, kennen das Problem vielleicht:
Man klickt irgendwo in der Tabelle in der Spalte AV eine Zelle an und scrollt dann an den Anfang der Tabelle, weiss aber dann plötzlich nicht mehr wo man war. Nun, als Orientierungshilfe dient mit Sicherheit, dass der Zeilenkopf eingefärbt ist, aber wenn man viel hin- und herscrollt oder Informationen schreibt, kann das Mühsam werden.
Als Hilfe dient die folgende Möglichkeit, dass immer die ganze Zeile farbig hinterlegt ist, wo eine Zelle Aktiv ist:
| Code: |
|
Dim Merk, Farbe Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Merk <> “” Then Rows(Merk).Interior.ColorIndex = Farbe If Intersect(Target, Range(“A5:J30″)) Is Nothing Then Exit Sub Merk = Target.Row Farbe = Target.Interior.ColorIndex Rows(Target.Row).Interior.ColorIndex = 20 End Sub |
Dieser Code wird im VBA Teil in einer Tabelle (nicht in einem Modul) hinterlegt. Mit Range(“A5:J30″)) kann der Bereich wo eingefärbt werden soll eingeschränkt werden. Der Farbcode 20 kann ebenfalls abgeändert werden.
Quelle: http://www.office-loesung.de/
0 Response to “Excel VBA : Aktive Zeile einfärben”