Supportnet / Forum / Tabellenkalkulation

Hallo, kann Exel auch Zahlen oder Buchstaben einer bestimmten Farbe erkennen und zusammenrechnen?

wieso "farbige Zahlen"?
Handelt es sich um negative Zahlen, die in Rot angezeigt werden?
Bestimmt kann man so was mit VBA lösen. Es gab im SN zu EXCEL mal einen Beitrag, wo es auch um Farbige Zellinhalte ging.
Wenn du genauer beschreibst, was du machen willst, gibt es vielleicht eine Alternative zu VBA.

CU
Klaus

Hallo Falke,

Wenn Deine "Farbenvielfalt" über bedingte Formatierungen entstanden sind,
kannst Du dies auch in Formeln verwenden!

Wie Klaus schon sagte, aber paar Infos mehr wären hilfreich!

gruss
pelle

Hallo Falke,

Miranda hat dazu einige gute Tipps gegeben:
https://supportnet.de/discussion/listmessages.asp?content=&recno...

Gruß
Günter

Hi Günter,

hatte auch schon an meinen vor Urzeiten gegebene Antwort gedacht, aber in diesem Fall sollen wohl nicht die Zellen, sondern die Inhalte in mehreren Farben dargestellt und addiert werden. Da greift mein Vorschlag dann leider nicht mehr, weil ich dabei den Zellinhalt in Abhängigkeit von der Zellfarbe anpassen mußte. Die in dem alten Thread von mir genannte Seite mit dem VBA-Makro gibt es auch nicht mehr.

Habe aber unter

http://www.herber.de/forum/archiv/24to28/t25813.htm

eine Funktion "FarbenAddieren" gefunden, die falke eventuell nützlich sein kann. Erfordert aber noch einiges an Programmieraufwand drumrum, ist deshalb nicht ganz so leicht anzuwenden.

Gruß,
Miranda

Hallo,
eben habe ich gesehen, dass die von miranda im genannten Posting angegebene url nicht mehr gültig ist.

Deshalb hier noch eine andere Möglichkeit aus spotlight von JensF vom 05.02.2001:

http://spotlight.de/zforen/amse/m/amse-981376902-30940.html

Günter

hallo falke,

nochmal: wie wäre es mit ein paar Informationen, die das Problem genauer beschreiben?

CU
KLaus

hi alle

grummel grummel zu einfach !!!

Beschreibung :
a1-b3 wird in diesen falle geprueft
rot=3
blau=11
bei bedarf entsprechenden farbindex aendern.
t%=spalten (eventuell der eigenen tabelle anzupassen,spaltenwert der jetzt auf 66 steht erhoehen)a=65/b=66 usw.
t1%=zeile (eventuell der eigenen tabelle anzupassen zeilemax. steht auf 3 diese sind dann zu erhoehen)

Sub Makro1()
For t% = 65 To 66
For t1% = 1 To 3
If Range(Chr$(t%) & t1%).Font.ColorIndex = 3 Then
rot = rot + 1
End If
If Range(Chr$(t%) & t1%).Font.ColorIndex = 11 Then
blau = blau + 1
End If
Next t1%
Next t%
Range(Chr$(65) & t1% + 1) = rot
Range(Chr$(65) & t1% + 2) = blau
End Sub

gruss nighty

hi alle nochmal

diesmal mit addierung der farbigen in diesen falle rot und blau zellen.
farbindex=20 gegebenenfalls dim zell(erhoehen) sonst wie oben erklaerung.

Sub Makro1()
Dim zell(20)
For t% = 65 To 66
For t1% = 1 To 3
If Range(Chr$(t%) & t1%).Font.ColorIndex = 3 Then
rot = rot + 1
zell(Range(Chr$(t%) & t1%).Font.ColorIndex) = zell(Range(Chr$(t%) & t1%).Font.ColorIndex) + Range(Chr$(t%) & t1%)
End If
If Range(Chr$(t%) & t1%).Font.ColorIndex = 11 Then
blau = blau + 1
zell(Range(Chr$(t%) & t1%).Font.ColorIndex) = zell(Range(Chr$(t%) & t1%).Font.ColorIndex) + Range(Chr$(t%) & t1%)
End If
Next t1%
Next t%
Range("a4") = zell(3)
Range("b4") = zell(11)
End Sub

gruss nighty

Hi,
hab am WE nicht reingeschaut, also Sorry, aber danke für die vielen Antworten.
Ich gebe z.B. verschiedene Arbeitnehmer mit dem Buchstaben ihres Nachnamens ein - und jeder hat ne andere Farbe. Da die Arbeitnehmer im Teildienst arbeiten, möchte ich ohne lange nachzuzählen rausbekommen, wer wieviel Spätdienste oder Frühdienste hatte.
Ich habe nicht sofort Zeit, mich mit euren oben geschriebenen Tipps zu befassen, melde mich aber wenn ichs ausprobiert hab.
Gruß Falke

hallo falke,

schön, dass du dich nochmal gemeldet hast.Die Sache mit der Farbe kann dein Problem zwar lösen, aber du könntest das auch mit einer weiteren Tabelle und der Funktion "ZÄHLENWENN" oder einfach mit einem Autofilter in der Originaltabelle und der Funktion TEILERGEBNIS lösen.
Bei der von dir geschilderten Aufgabenstellung scheint mir das der einfachere LÖsungsweg zu sein.

Wenn du magst schick doch mal eine "kleine" Beispieltabelle, ich bastel dann mal ein wenig, wenn du willst.

CU
KLaus

P.S.: @nighty: wieder mal eine klasse Lösung, bei der ich nur staunen kann. Auch die Makros im anderen Thread sind sehr gut!

hi alle

es war mir eine ehre euch helfen zu duerfen einen schoenen tag noch alle.

gruss nighty

hallo falke,

danke für die Tabelle,
ich habe mal ein wenig gebastelt und die Funktion ZÄHLENWENN eingebaut. Die Tabelle ist bereits wieder an dich unterwegs. Damit kannst du dann die von dir gewünschten Werte zählen.
Für alle anderen, die die Tabelle nicht haben:-)))
Es ist eigentlich kein Problem der unterschiedlichen Farben gewesen, diese dienen einfach nur der besseren Lesbarkeit. Es handelt sich um unterschiedliche Namen, deren Häufigkeit in einem festgelegten Tabellenbereich gezählt werden soll. Das geht ganz einfach mit der o.g.
Funktion.

CU
KLaus

Hi,

ich bedank mich noch mal bei allen.
Die Lösung von Klaus war was ich gesucht hab.
Besten Dank
Falke

• Zahlenvervollständigen geht das ????
• Zwischenzeichen bei Zahlen entfernen
• SVERWEIS mit als Text gespeicherten Zahlen
• Excel Formel im Text verwenden
• y-Achse: 20 ... 0 ... 20 - ohne negative Zahlen, wie?