Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Anzahl der gelb hinterlegten Zellen ermitteln

Gruppe

Format

Problem

Wie kann ich die Anzahl aller mit einer bestimmten Hintergrundfarbe formatierten und einen bestimmten Text beinhaltenden Zellen errechnen lassen?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function WertUndFarbe(rng As Object, _
  iColor As Integer, sTxt As String) As Integer
  Dim rngZelle As Range
  Dim iCounter As Integer
  For Each rngZelle In rng.Cells
    If rngZelle.Interior.ColorIndex = iColor And _
      rngZelle.Value = sTxt Then _
      iCounter = iCounter + 1
  Next rngZelle
  WertUndFarbe = iCounter
End Function