Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Feste Hintergrundfarbe der aktiven Zelle bei Cursorbewegungen

Gruppe

SelectionChange

Problem

Wie kann ich die Hintergrundfarbe der aktiven Zellen variabel gestalten, daß sie sich bei Cursorbewegungen anpaßt.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Public grng As Range
Public giOld As Integer, giNew As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  On Error Resume Next
  giNew = Target.Interior.ColorIndex
  Target.Interior.ColorIndex = 6
  grng.Interior.ColorIndex = giOld
  giOld = giNew
  Set grng = Target
End Sub