Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Anzahl/Summe formatierter Zellen
Benutzerdefinierte Funktion
 
Per benutzerdefinierter Funktion soll die Anzahl oder die Summe z.B fett formatierter oder mit Schriftfarbe rot formatierter Zellen bestimmt werden.
 
 
Fett formatierte Zellen
 ABCD
11 Anzahl fett formatierte Zellen2
22 Summe fett formatierte Zellen6
33   
44   
55   
Formeln der Tabelle
D1 : =anzahlfett(A1:A5)
D2 : =summefett(A1:A5)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Rot formatierte Zellen
 ABCD
11 Anzahl rot formatierte Zellen3
22 Summe rot formatierte Zellen9
33   
44   
55   
Formeln der Tabelle
D1 : =anzahlrot(A1:A5)
D2 : =summerot(A1:A5)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
 
Die 4 Funktionen. Der Code muss in ein allgemeines Modul.
 
Anzahl fett formatierter Zellen
 
Public Function anzahlfett(ByVal Bereich As Range) As Long
Application.Volatile
Dim Zelle As Range
 
For Each Zelle In Bereich
If Zelle.Font.Bold = True Then
   anzahlfett = anzahlfett + 1
End If
Next
End Function
 
Summe fett formatierter Zellen
 
Public Function summefett(ByVal Bereich As Range) As Long
Application.Volatile
Dim Zelle As Range
 
For Each Zelle In Bereich
If Zelle.Font.Bold = True Then
   summefett = summefett + Zelle.Value
End If
Next
End Function
 
Anzahl rot formatierter Zellen, wobei die 3 im Code für die Farbe rot steht.
Eine Übersicht gibt es hier: Farbe & Farbnummer
 
Public Function anzahlrot(ByVal Bereich As Range) As Long
Application.Volatile
Dim Zelle As Range
 
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = 3 Then
   anzahlrot = anzahlrot + 1
End If
Next
End Function
 
Summe rot formatierter Zellen
 
Public Function summerot(ByVal Bereich As Range) As Long
Application.Volatile
Dim Zelle As Range
 
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = 3 Then
   summerot = summerot + Zelle.Value
End If
Next
End Function