VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Anzahl der gelb hinterlegten Zellen ermitteln

Gruppe

UDF

Bereich

Format

Thema

Anzahl der gelb hinterlegten Zellen ermitteln

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

    


Beiträge aus dem Excel-Forum zu den Themen UDF und Format