Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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

302 Forumthreads zu ähnlichen Themen

Zeit auf 5 Minuten runden?
Hermann

Hallo Excel-ianer,
wie kann ich eine eingegebene Uhrzeit auf volle 5 Minuten runden?
Also 7:01 bis 7:02 auf 7:00 Uhr
und 7:03 bis 7:07 auf 7:05 Uhr
Meine selbstgebastelte Formel ist etwas länglich geraten.
In A2 stehe die Zeit, z.B. 07:03:00 ,
und die Formel soll dann...
16.02.2009 15:23:00
Thread-ID: 1051172
4 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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
9
9
2
4
3
1
1
1
17
1
1
2
11
11
4
21
3
4
10
1
5
4
3
4