VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Neuberechnung nach Änderung der Hintergrundfarbe

Gruppe

Ereignis

Bereich

SelectionChange

Thema

Neuberechnung nach Änderung der Hintergrundfarbe

Problem

Nach Änderung der Hintergrundfarbe und Zellwechsel im Bereich A1:C8 soll die Formel in Zelle D1 neu berechnet werden.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




ClassModule: Tabelle1

Private Sub Worksheet_SelectionChange _
   (ByVal Target As Range)
   Range("D1").Calculate
End Sub

StandardModule: Modul1

Function Farbe(rngBereich As Object, iColor As Integer)
   Dim iCounter As Integer
   Dim rngAct As Range
   Application.Volatile
   For Each rngAct In rngBereich
      If rngAct.Interior.ColorIndex = iColor Then
         iCounter = iCounter + 1
      End If
   Next rngAct
   Farbe = iCounter
End Function

    


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