Tips: Aktive Zelle farbig hervorheben (CHIP 02/2003)

Aktive Zelle farbig hervorheben

Gro▀e Tabellen sind hΣufig unⁿbersichtlich. Sie m÷chten deshalb die jeweils aktive Zelle oder das Ergebnis einer Suche farbig unterlegen.

Dazu ben÷tigen Sie ein Makro, welches stΣndig im Hintergrund lΣuft und den Wechsel der aktiven Zelle ⁿberwacht. Neben dem Markieren der aktiven Zelle muss das Makro zudem die zuvor verlassene Zelle wieder zurⁿcksetzen.
Zur Eingabe des Makros fⁿhren Sie den Befehl ╗Extras | Makro | Visual Basic-Editor½ aus. Dann klicken Sie links im Fenster des Projektexplorers doppelt auf ╗Diese Arbeitsmappe½. Im Code-Fenster geben Sie folgende Makrozeilen ein oder kopieren sie von der Heft-CD unter CHIP-Code PRAXIS02:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Static Zelle As Range
If Not Zelle Is Nothing Then
  Zelle.Interior.ColorIndex = xlNone
End If
Target.Interior.ColorIndex = 4 æ Grⁿn
Set Zelle = Target
End Sub

Beenden Sie den VBA-Editor mit ╗Datei | Schlie▀en und zurⁿck zu Microsoft Excel½. Dieses Makro wird automatisch bei jedem Wechsel der aktiven Zelle oder Markierung ausgefⁿhrt. Dabei unterlegt es den jeweils aktiven Bereich mit grⁿnem Hintergrund. Zuvor prⁿft das Makro mit dem Schlⁿsselwort ╗Nothing½, bei welcher zuvor aktivierten Zelle es den Font wieder zurⁿcksetzen muss. So finden Sie leichter die aktuelle Cursor-Position beziehungsweise das Ergebnis einer Suche in der Tabelle.
! Achtung: Diese Methode funktioniert nicht, wenn in der Tabelle bereits Zellhintergrⁿnde vorhanden sind.