Collapse column

Autor Thema: Addition von Zahlen gleicher Farbe  (Gelesen 149 mal)

Online Lars211

  • Newbie
  • *
  • Beiträge: 9
    • Profil anzeigen
  • Office-KnowHow: Amateur
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2013
Addition von Zahlen gleicher Farbe
« am: Dezember 07, 2018, 13:40:26 Nachmittag »
Hallo zusammen,

Im VBA habe ich ein Makro, welches mir Zahlen gleicher Farbe in einer Zeile addiert.
Das funktioniert bist zu dem Punkt wo der Farbcode zweistellig wird.
So sieht das aus:

Function Krank(Bereich As Range)
Application.Volatile
Krank = 0
For Each zelle In Bereich
If zelle.Font.ColorIndex = 3 Then   
Krank = Krank + zelle.Value
End If
Next
End Function


Ich kenne es von C++... Deklaration als Int oder double
Wahrscheinlich ist das hier ähnlich?!


Kann mir jemand sagen, wie ich die Addition hinbekomme, wenn der ColourIndex mehrstellig ist?


Vielen Dank
« Letzte Änderung: Dezember 07, 2018, 13:48:23 Nachmittag von Lars211 »

Offline maninweb

  • Global Moderator
  • Hero Member
  • *****
  • Beiträge: 1.005
  • Microsoft MVP
    • Profil anzeigen
    • Excel Formula Translator
  • Office-KnowHow: Experte
  • VBA-KnowHow- : Sehr gut
  • Version [Office] : Office 2016
Antw: Addition von Zahlen gleicher Farbe
« Antwort #1 am: Dezember 08, 2018, 09:13:56 Vormittag »
Hallo,

kann ich nicht nachvollziehen, was Du meinst. Angenommen, der Farbcode wäre 33 (Hellblau), dann hättest Du
zelle.Font.ColorIndex = 33 und das funktioniert.

Generell ist es aber keine gute Idee, Farben zu zählen. Ich gehe davon aus, dass die Farben manuell gesetzt werden.
Besser wäre es, einen Status z.B. in der Nachbarsspalte zu setzen, die Farbe über eine bedingte Formatierung zu
setzen und die Werte per Formel zu addieren - Stichwort z.B. ZÄHLENWENN.

Gruß

Microsoft Most Valuable Professional (MVP) 2011 - 2018/2019
https://de.excel-translator.de :: Online Excel-Formel-Übersetzer :: Alle Übersetzungen der Excel Funktionen & Fehlerwerte

Online Lars211

  • Newbie
  • *
  • Beiträge: 9
    • Profil anzeigen
  • Office-KnowHow: Amateur
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2013
Antw: Addition von Zahlen gleicher Farbe
« Antwort #2 am: Dezember 10, 2018, 07:53:21 Vormittag »
Und genau das geht eben nicht..
Sobald der Index über 9 hinausgeht, funktioniert es nicht.
Ich habe ein Makro gefunden, was mir den Index anzeigt.
Damit habe ich meine Vermutung bestätigen können.
Index 1-9 geht, ab 10 nicht mehr

Offline maninweb

  • Global Moderator
  • Hero Member
  • *****
  • Beiträge: 1.005
  • Microsoft MVP
    • Profil anzeigen
    • Excel Formula Translator
  • Office-KnowHow: Experte
  • VBA-KnowHow- : Sehr gut
  • Version [Office] : Office 2016
Antw: Addition von Zahlen gleicher Farbe
« Antwort #3 am: Dezember 10, 2018, 09:08:59 Vormittag »
Hallo,

ColorIndex = 33 klappt prima bei mir. Daher folgende Fragen ...

- welche Excel-Version verwendest Du?
- welche Plattform (Win/Mac)?
- wechen Dateityp (xls, xlsm, xlsb)?

Und, kannst Du hier eine Beispieldatei hochladen?

Gruß
Microsoft Most Valuable Professional (MVP) 2011 - 2018/2019
https://de.excel-translator.de :: Online Excel-Formel-Übersetzer :: Alle Übersetzungen der Excel Funktionen & Fehlerwerte

Online Lars211

  • Newbie
  • *
  • Beiträge: 9
    • Profil anzeigen
  • Office-KnowHow: Amateur
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2013
Antw: Addition von Zahlen gleicher Farbe
« Antwort #4 am: Dezember 10, 2018, 10:39:42 Vormittag »

Excel 16 auf Windows und xlsm




anbei die Beispieldatei...
« Letzte Änderung: Dezember 10, 2018, 10:43:06 Vormittag von Lars211 »

Offline Herbert Grom

  • Jr. Member
  • **
  • Beiträge: 76
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Gut
  • Version [Office] : Office 2013
Antw: Addition von Zahlen gleicher Farbe
« Antwort #5 am: Dezember 10, 2018, 17:42:50 Nachmittag »
Hallo Lars,

das Ganze basiert m. E. auf der alten Farbnummerierung bis Excel 2003. Ab Excel 2007 gibt es ein anderes Farb-Nummerierungssystem. So wie ich das sehe, funktioniert dies nicht mehr mit der neuen Nummerierung. Stelle die Frage doch mal im "Herber-Forum" http://www.herber.de/forum/!

Servus
Servus

#Bitte Antwort nicht vergessen! ;o)=)

Online Lars211

  • Newbie
  • *
  • Beiträge: 9
    • Profil anzeigen
  • Office-KnowHow: Amateur
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2013
Antw: Addition von Zahlen gleicher Farbe
« Antwort #6 am: Heute um 06:52:57 »
Alles klar, danke :)