title image


Smiley Re: Rechnen mit Formaten
Hi,



das geht mit einer UDF. Dazu kopierts du den Code in ein Modul. Dann findest du die Funktion unter Einfügen->Funktionen..->Benutzerdefiniert



Hier die UDF:

[Beispiel für die Zellformel: =Farbsumme(A1:A3;3), wobei 3 für Rot steht]



Function Farbsumme(Bereich As Range, Farbe As Integer) As Long

' Farbe Zellhintergrund

Dim Zelle As Range

Application.Volatile

For Each Zelle In Bereich

If Zelle.Interior.ColorIndex = Farbe Then

Farbsumme = Farbsumme + IIf(IsNumeric(Zelle.Value), Zelle.Value, 0)

End If

Next

End Function

 Code eingefügt mit Syntaxhighlighter 1.16
Der Zugvogel
(mIsCHa Reichelt)


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: