VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Feste Hintergrundfarbe der aktiven Zelle bei Cursorbewegungen

Gruppe

Ereignis

Bereich

SelectionChange

Thema

Feste Hintergrundfarbe der aktiven Zelle bei Cursorbewegungen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und SelectionChange