Farbsumme Zählen

Hallo zusammen!
ich habe da mal ein hoffentlich kleines problem!
ich möchte in einer exeldatei(Nr.1) die anzahl der zellen einer zeile mit gleich gefärbtem hintergrund zählen und in einer anderen exeldatei(Nr.2), diese summe bei betätigen eines commandbutton in bestimmten zellen schreiben und aktualisieren.
nun habe ich diese zählfunktion in einem modul der datei Nr.1 eingefügt


Public Function Farbsumme(Bereich As Range, Farbe As Integer,Farbsumme_Hintergrund As Integer)
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme_Hintergrund = Farbsumme_Hintergrund + Zelle
End If
Next
End Function

und will durch diese prozedur, welche ich in der tabelle der datei Nr.2 geschrieben habe


Public Sub CommandButton1_Click()
Call Farbsumme
End Sub

diese summe durch das betätigen des Buttons, in die zellen der datei Nr.2 schreiben, wo dieser befehl steht
=Farbsumme_Hintergrund(B1:B100;44)
(wobei B1:B100 den Zählbereich der Tabelle Nr.1 darstellt und 44 die farbe ist die er zählen soll)
nun springt er auf call farbesumme
und schreibt fehler beim kompilieren, Sub oder function nicht definiert
ich hab schon alles mir mögliche versucht, aber ich raff es nicht was fehlt oder anders muss
ich hoffe dies ist wirklich kein großes problem und mir kann schnell jemand helfen, da ich dies unbedingt benötige.
Vielen Dank im voraus
Gruß Marco

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function Farbsumme(Bereich As Range, Farbe As Integer) Dim Zelle As Object Application.Volatile For Each Zelle In Bereich If Zelle.Interior.ColorIndex = Farbe Then Farbsumme = Farbsumme + Zelle End If Next End Function

Public Function FarbSumme(rngBereich As Range, intFarbe As Integer) As Double Dim rngZelle As Range Application.Volatile For Each rngZelle In rngBereich If rngZelle.Interior.ColorIndex = intFarbe And IsNumeric(rngZelle) Then FarbSumme = _ FarbSumme + rngZelle Next End Function

Public Function FarbAnzahl(rngBereich As Range, intFarbe As Integer) As Long Dim rngZelle As Range Application.Volatile For Each rngZelle In rngBereich If rngZelle.Interior.ColorIndex = intFarbe Then FarbAnzahl = FarbAnzahl + 1 Next End Function

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Farbsumme Zählen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread