Update CHIP 05/2004

„Aktive Zelle farbig hervorheben“, Ausgabe 02/2003, Seite 196: Tipp 10 beschreibt, wie man in Excel die jeweils aktive Zelle farbig unterlegt. CHIP-Leser H. Mehren sucht nun eine Möglichkeit, in einer aktiven Zeile jeweils nur die Zelle in der zweiten Spalte farbig unterlegt hervorzuheben. Dazu ist ein Makro nötig, das im Hintergrund läuft und den Wechsel der aktiven Zelle überwacht. Nach dem Markieren einer Zelle muss das Makro außerdem die zuletzt aktivierte Zelle wieder zurücksetzen. Zur Eingabe des Makros öffnen Sie »Extras | Makro | Visual Basic-Editor«. Dann klicken Sie links im Fenster des Projekt-explorers doppelt auf »Diese Arbeitsmappe«. Im Code-Fenster geben Sie nun folgende Makrozeilen ein:

Private Sub Workbook_Sheet-SelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)

Static Zelle As Range
If Not Zelle Is Nothing Then
Cells(Zelle.Row, 2).Interior.ColorIndex = xlNone
End If
Cells(Target.Row, 2).Interior.ColorIndex = 4 ' Grün
Set Zelle = Target
End Sub
Beenden Sie den VBA-Editor. Das Makro wird bei jedem Wechsel der aktiven Zelle ausgeführt. Es unterlegt die zweite Zelle der aktiven Zeile mit einem grünen Hintergrund. Davor prüft das Makro mit dem Schlüsselwort »Nothing«, bei welcher zuvor aktivierten Zelle es den Hintergrund wieder zurücksetzen muss.