Office: Schriftfarben Zahl ermitteln

Sehr geehrte Damen und Herren,

ich bin ein Neuling was Excel betrifft und habe mir schon einiges zusammengesucht und einige Hilfe durch Google erhalten. Google hat mich auf dieses Forum des öfteren weitergeleitet welches mir schon sehr viel und oft weiter geholfen hat.

Nur stehe ich vor einem Problem welches ich nicht in den Griff bekomme. Ich denke für die Profis hier ;) wird es ein leichtes sein aber ich als Neuling komme einfach nicht weiter.

Ich habe eine Tabelle (unten angehängt) welche mein Schichtplan ist.

Ich hätte nun gerne das es mir in der Spalte R34 eine Zahl schreibt welche angibt wie viele ROTE markierten tage es in meiner Tabelle ( B2-AF24) gibt. Um eine Übersicht zu haben wie viele Urlaubstage ich schon verbraucht habe.

Ich habe das Forum bereits durchsucht und einiges gefunden wie http://www.office-hilfe.com/support/topic,4751,-excel-2003-tabellenfarben-zaehlen-lassen.html aber ich werde daraus nicht schlau evtl. kann man es mir einfach erklären :) ich würde mich sehr freuen den ich steh auf dem Schlauch wie das funktionieren soll mit Makros etc.

Vielen Dank im vor raus

Krawutke

 

Hallo!

Wäre es nicht einfacher, Urlaubstage mit einem "U" zu kennzeichnen (evtl. noch kombiniert mit einer Bedingten Formatierung)?
Diese kannst du dann "ganz normal" mit ZÄHLENWENN auswerten.

Ansonsten findest du zu deiner eigentlichen Frage hier eine (hoffentlich) ausführliche Erklärung:
https://www.office-hilfe.com/support/threads/excel-auswertung-von-farbigen-zellen.6814/

 

Ja währe es um einiges ^^

das hab ich mir auch schon gedacht NUR dann hab ich unten nicht mehr die gesamte anzahl meiner Schichten stehen da ich auch Urlaubs dafür ja bezahlt werde :)

Und ein U (für Urlaub) sagt mir ja unten nicht das ich da dann Frühschicht meinetwegen hatte ^^ da sich mein Schichtlan durch Umlegungen ändenr kann bzw durchs tauschen der Schicht würde ich dies gerne beibehalten.

Werde mir mal deinen Link anschaun evtl hilft der ja weiter hatte ne gar net gefunden danke dafür schonmal :)

So hab mir den Link angeshen und komm damit gar nicht klar ^^ sry bin echt neuanfänger was sowas angeht und blick da gar nix tut mir leid

hab es so gemacht wie du unter dem 2 Punkt beschrieben hast aber da spuckt er mir die Zahl 6 aus warum auch immer



Nehme alles zurück hab es ^^

Danke für die sehr schnelle sehr gute und sehr kompetente Hilfe und genial die Zusammenfassung läuft alles danke danke danke :)

Liebe grüße Krawutke

 

Hallo!

OK, dann also Schritt für Schritt:
Öffne deine Excel-Mappe
Drücke Alt+F11 (der VBA-Editor öffnet sich)
Wähle hier Menü Einfügen > Modul
In das (noch leere) Codefenster oben rechts kopierst du diesen Code:

Code:

Public Function SFarbeZählen(Bereich As Range, Farbe As Integer)
    Dim Zelle As Range
    Application.Volatile
    For Each Zelle In Bereich
        If Not IsEmpty(Zelle) Then
            If Zelle.Font.ColorIndex = Farbe Then SFarbeZählen = SFarbeZählen + 1
        End If
    Next Zelle
End Function

Nun wechselst du zurück in deine Tabelle und schreibst in R34 diese Formel:
=sfarbezählen(B2:AF24;3)

Beachte aber: Durch das einfache Umfärben einer Zelle aktualisiert sich diese Funktion nicht!
Erst nach einer Neuberechnung reagiert diese Formel auf derartige Veränderungen!

 

Jau hab es dann doch verstanden ^^ hatte des mit Alt F11 net gelesen ^^ hab des ganze so in ne Zelle übertragen ^^ aber hat dann doch geklappt und musste auch feststellen das es net aktualisiert aber des is ok sind dann ein tasten druck dann is es alles stimmig ^^

Ich danke dir für deine schnelle ausführliche Hilfe bin jetzt dann am Ende meiner Bearbeitung angekommen :)

Danke danke danke