Tipps: 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.