Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbige Zellen eines Bereiches addieren

Forumthread: Farbige Zellen eines Bereiches addieren

Farbige Zellen eines Bereiches addieren
06.06.2005 10:31:49
Indalo
Ich möchte Zellen mit unterschiedlich gefärbtem Hintergrund addieren. Ich habe hierzu eine VBA-Funktion geschrieben. Ich habe die Funktion in der personl.xls gespeichert und den gegebenen Namen "SummeFarbe" (ohne Gänsefüsschen) deklariert. Nun erhalte ich statt einer Summe den Vermerk #BEZUG?, kann aber nicht erkennen, wo der Fehler liegt, da dieser Fehler von der Funktion ausgelöst sein muss, die aber prima vista ohne Fehler compiliert wird.
Weiss vielleicht "ransi" oder jemand anderer Bescheid?
Code meiner Funktion: https://www.herber.de/bbs/user/23655.txt
Vielen Dank vom Bodensee (Schweizerseite)
Indalo
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Farbige Zellen eines Bereiches addieren
06.06.2005 11:39:00
ChrisSp
Hi,
ich habe deine Funktion eben mal ausprobiert, bei mir ist sie gelaufen, ich habe nur ne kleine Änderung nachträglich gemach ( OR durch AND ersetzt), da die Funktion sonst meiner Meinung nach nicht viel bringt: "If a.Interior.ColorIndex > 0 And a.Interior.ColorIndex Hast du evtl. irgendwelche Formatierungen drin? Wie hast du den Bereich angegeben?
Evtl. kannst du ja mal ne Beispiel schicken
Gruss
Chris
Anzeige
AW: Farbige Zellen eines Bereiches addieren
06.06.2005 14:10:24
Indalo
Die ganze Exceldatei "Smart1" unter: https://www.herber.de/bbs/user/23661.xls
Zwei Varianten möglicher Funktionen "Farbsumme" (von Herbert) und "SummeFarbe" (verbessert von Chris) sind im personl.xls vorhanden. Der Aufruf erfolgt z.B. mit dem Funktionsnamen "Name"(B3:B120).
Ich steh am Berg und danke im voraus für den Anschub Richtung Bodensee (Schweizerseite)
Indalo
Anzeige
AW: Farbige Zellen eines Bereiches addieren
06.06.2005 15:11:36
ChrisSp
Das müsste an den Buchstaben in der Liste liegen, deine Funktion verträgt nur Zahlen.
Leider muss ich jetzt kurz weg - ich schau nachher nochmal rein. Die Funktion muss nur geringfügig (hoffentlich) verändert werden
Gruss
Chris
AW: Farbige Zellen eines Bereiches addieren
06.06.2005 16:16:48
Indalo
An Chris: Leider sind es nicht die Buchstaben in den Zellen, da ich nicht die Farbcodes addiere, sondern den Zellinhalt. Excel addiert nur die Ziffern, auch wenn in einigen Zellen Buchstaben vorhanden sind. Ausserdem habe ich die Buchstaben nur in der Kolonne C. Kolonnen D und E sind davon nicht betroffen, zeigen aber die gleiche Fehlermeldung (#BEZUG?). Aber ich hoffe auf Deine Erleuchtung, wenn Du zurück bist ;-))
Gruss Indalo
Anzeige
Hat wohl doch etwas länger gedauert ;o)
07.06.2005 08:25:14
ChrisSp
Hi Indalo,
sorry - hat gestern nicht mehr geklappt. Aber nu, mir ist aufgefallen, dass der Name der Funktion in deiner Tabellen nicht mit dem Namen in deinem ersten Threat übereinstimmt - schau mal ob du überall den gleichen Namen verwendest. Sonnst ging´s bei mir, außer halt das mit den Buchstaben. Hier mein kompletter Vorschlag:
Public 

Function SummeFarbe(Bereich As Object) As Double
Dim s As Double
Dim a As Object
Application.Volatile
s = 0
For Each a In Bereich
If a.Interior.ColorIndex > 0 Or a.Interior.ColorIndex < 57 Then
If IsNumeric(a.Value) Then
s = s + a.Value
End If
End If
Next
SummeFarbe = s
End Function

In deiner Exceltabelle musst du also die Funktion SummeFarbe aufrufen, ich würde es über den Formelassistenten machen (benutzerdefinierte Formeln)
Gruss
Chris
Anzeige
AW: Farbige Zellen eines Bereiches addieren
06.06.2005 11:45:50
Harald
Hi Indalo,
das liegt meiner Meinung nach an der Variablen-Deklaration. Wenn Du Zellen durchsuchen willst, handelt es sich eher um Range als um ein Object.
Ich hab dir mal ein funktionierendes Beispiel reinkopiert (nicht für Färbung, aufgrund bedingter Formatierung !!)

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


Function
Gruß
Harald
Anzeige
AW: Farbige Zellen eines Bereiches addieren
06.06.2005 14:12:47
Indalo
Die ganze Exceldatei "Smart1" unter: https://www.herber.de/bbs/user/23661.xls
Zwei Varianten möglicher Funktionen "Farbsumme" (von Herbert) und "SummeFarbe" (verbessert von Chris) sind im personl.xls vorhanden. Der Aufruf erfolgt z.B. mit dem Funktionsnamen "Name"(B3:B120).
Ich steh am Berg und danke im voraus für den Anschub Richtung Bodensee (Schweizerseite)
Indalo
Anzeige
AW: Farbige Zellen eines Bereiches addieren
06.06.2005 14:43:32
Harald
Hi nochmal,
hab gleich Feierabend (yesss). Daher nur was auf die Schnelle zum Anpassen.
versuchs mal so:

Sub Farbsumme()
Dim n
Dim i As Integer
n = 0
For i = 2 To 172 'Zeilennummer anpassen
If Cells(i, 1).Interior.ColorIndex > 0 Then
n = n + Cells(i, 1).Value
End If
Cells(178, 1) = n
Next i
End Sub

Gruß
Harald
Anzeige
AW: Farbige Zellen eines Bereiches addieren
06.06.2005 16:29:39
Indalo
Einen ganz schönen Yesss-Feierabend! Deiner Prozedur konnte ich nicht folgen, auch mein Rechner nicht. Ich habe die Zeilennummern angepasst, wie angegeben:
oben: For i = 3 To 120
unten: Cells(120, 1) = n
Ich bräuchte aber eine Funktion, die ich parametrisieren kann über die Eingabe
wie: =Zellfarbsumme(A1:A100)
und die mir die Summe der Beträge in allen farbigen Zellen (jede Farbe zwischen Farbcode 1 und 56) des parametrisierten Bereiches angibt.
Vielleicht hast Du nach einem fröhlichen Feierabend noch eine andere Idee? Vielen Dank im voraus vom (bedeckten) Bodensee (Schweizerseite)
Indalo
Anzeige

Forumthreads zu verwandten Themen

Addieren von farbig hinterlegten zellen
farbig

Hallo liebe Profis,
wie kann ich am einfachsten farbig hinterlegte Zellen addieren.
Beispiel:
in Zellen C1 bis Z1 stehen willkürliche zahlen. Jede Zelle ist willkürlich entweder grün oder rot eingefärbt.
In Zelle A1 sollen jetzt alle grünen Zellen addiert werden
In Zelle B1...
13.03.2009 18:00:56
Thread-ID: 1059965
10 Beiträge
Anzeige
Zellen finden und addieren
Marcel

Hallo
Ich habe eine Tabelle in der in Spalte C ein bestimmtest Wort gesucht werden soll. In Spalte B befindet sich in der gleichen Zeile der Wert dazu welcher immer addiert werden soll wenn das gesuchte Wort wieder auftritt.
Beispiel: Gesuchtes Wort "Einkauf"
Schrott 200 Einkau...
20.08.2009 09:17:04
Thread-ID: 1097273
10 Beiträge
zelleninhalt addieren
Ingo

Hallo zusammen,
hab da ein kleines Problem, vielleicht kann mir wer helfen.
Mein Befehl:
"Bei Klick auf Button addiere zur Zelle H3 den Wert aus Zelle K3"
Mein Ansatz:
Range("h3").Value = Range("h3").Value + "K3".value
Mein Problem:
Excel ist mit dem "+ "K3".value" n...
23.02.2010 09:27:21
Thread-ID: 1140565
3 Beiträge
Anzeige
Alle Zellen in Spalten E:G mit 0 addieren - Makro
Stef@n

Hallo und guten Morgen Excel-Freunde,
ich importiere eine große Liste in ein Excelsheet. Dabei sind in den Spalten E bis G
Zahlen enthalten, die aber als Text formatiert sind (ist wohl ein typisches Excelproblem beim
Import aus Datenbanken)
Jetzt kann ich die Fehlerüberwachung e...
11.02.2011 08:19:05
Thread-ID: 1200201
5 Beiträge
Anzeige
Inhalte von Zellen finden und addieren
Zellen

Hallo zusammen,
ich stehe vor einem kleinen Excel-Problem, wo ich etwas Hilfe benötige.
Grundlage ist eine Tabelle mit mehreren 100 Zeilen, die aktuell noch händisch durchsucht wird. Hier soll nach Möglichkeiten alles etwas automatisiereter Ablaufen, anbei ein kurzes Beispiel, um das hi...
23.08.2011 08:20:48
Thread-ID: 1227224
4 Beiträge
Inhalte von Zellen finden und addieren
Zellen

Hallo zusammen,
ich stehe vor einem kleinen Excel-Problem, wo ich etwas Hilfe benötige.
Grundlage ist eine Tabelle mit mehreren 100 Zeilen, die aktuell noch händisch durchsucht wird. Hier soll nach Möglichkeiten alles etwas automatisiereter Ablaufen, anbei ein kurzes Beispiel, um das hi...
23.08.2011 08:21:52
Thread-ID: 1227229
2 Beiträge
Zellen mit gleicher Hintergrundfarbe addieren
Matthias Gäbisch

Ist es in Excel anhand einer Formel möglich, Zellen mit gleicher Hintergrundfarbe zu addieren?
07.06.2002 08:28:48
Thread-ID: 126750
2 Beiträge
jede 5. Zelle in einer Spalte addieren
André

HalloWie aknn ich es erreichen, dass nur der Wert jeder fümften Zelle miteinander addiert wird?André
21.07.2002 12:37:29
Thread-ID: 138784
2 Beiträge
Addieren durch Doppelklick in vorbereitete Zellen
Holm

Hallo liebes Forum,
ich möchte Folgendes realisieren:
Summe soll in Spalte C gebildet werden, und zwar durch Doppelklick in Spalte D (=1) bis Spalte M (10)
So möchte ich jedesmal das Eintippen von + und den Ziffern sparen.
Danke im Voraus!!
Grüße Holm
30.10.2014 18:33:45
Thread-ID: 1389606
18 Beiträge
Automaticshes addieren in Zellen
Thorsten

Hallo,gibt es eine Möglichkeit in Zellen zu addieren ohne das diese überschrieben werden.Bsp. In einer Zelle steht der wert 5 und ich gebe nun den Wert 2 ein so möchte ich das automatisch dort 7 erscheint.Vielen Dank und schon jetzt ein schönes WochenendeThorsten
26.07.2002 13:44:39
Thread-ID: 141095
2 Beiträge
Jubiläumsdatum und -jahre in derselben Zelle
Michael

Hallo allerseits
folgende Funktion soll mir idealerweise nicht nur die Dienstjubiläen innerhalb der kommenden 30 Tage anzeigen, sondern eben auch das Jubiläumsdatum und zwar beides in einer Zelle (in etwa so: 25.04.2015 5-jähriges Jubiläum).
=WENN(DATEDIF(G7;$F$3;"YM")=11;WENN(ISTZAHL(V...
02.04.2015 13:45:36
Thread-ID: 1418759
2 Beiträge
Rundungsformel mit Variablen auf 5 runden
Pepi

Hallo zusammen
Kann mir jemand meinen Makroschnipsel ergänzen - siehe Anhang
https://www.herber.de/bbs/user/100775.xlsm
vielen Dank
Pepi
14.10.2015 10:42:19
Thread-ID: 1452219
12 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige