Clever-Excel-Forum

Normale Version: Mit Farben rechnen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo zusammen,
ich habe mal wieder ein "kleines" Problem. Ich habe ein Tabellblatt erstellt wo ich in der ersten Spalte die Arbeitsstunden in 15-Minuten-Schritten dargestellt habe. Nach Rechts sind die Spalten Montag - Freitag.
Nun möchte ich verschiedene Termine am jeweiligen tag mit verschiedenen Farben einfärben und dann abhängig von der Farbe die Stunden/Minuten zusammen rechnen. Geht sowas überhaupt?
Viele Grüße und Dank im voraus.
HS
Hi,

wie willst Du denn einfärben? Manuell, per Makrocode oder über die Bedingte Formatierung?

Wenn Du manuell einfärben willst, wird die Summenbildung ein wenig kompliziert ...

Wenn Du per Code färben willst, stell den Code bitte mal hier vor ...

Wenn Du bedingt formatierst, dann baue die Bedingungen in der Additionsformel nach ...
Hallo,
erstmal vielen Dank für Deine Antwort.
Einfärben will ich manuell.
Hi,

schau Dir mal die angehängte Beispielmappe und den Code unter dem CommandButton an, vielleicht kannst Du damit etwas anfangen ...
Vielen Dank.
Ich habe diesen Code mit Box in eine leere Excel-Datei kopiert und eine Zahlenreihe angelegt. Verschiedenen Zellen habe ich dann rot gefärbt. Aber der Code zählt trotzdem nicht.
Was hab ich denn da evtl. falsch gemacht?
Hi,

von hier aus kann ich leider nicht sehen, was Du falsch gemacht hast Huh .

Die Beispielmappe und der Code sollten auch nur als Beispiel dienen, wie man bestimmte Bereich nach dem Farbindex abfragen kann. Da ich Deine Mappe aber nicht kenne und Du auch nicht verrätst, welcher Bereich Deiner Tabelle ausgewertet werden soll, wieviele und vor allem welche Farben Du verwendest, kann ich Dir hier nicht weiterhelfen ...
Hi,

(16.04.2015, 10:31)hs1955 schrieb: [ -> ]Vielen Dank.
Ich habe diesen Code mit Box in eine leere Excel-Datei kopiert und eine Zahlenreihe angelegt. Verschiedenen Zellen habe ich dann rot gefärbt. Aber der Code zählt trotzdem nicht.
Was hab ich denn da evtl. falsch gemacht?

ich habe hier einen Code-Ausschnitt, der das Auftreten von diversen Farben zählt:

         Select Case Zelle.Interior.ColorIndex
           Case 2, Is < 0                                         ' Farbe Weiss oder so
              If Zelle.Interior.Pattern = xlLightUp Then
                 SummeWeissS = SummeWeissS + 1
              Else
                 SummeWeiss = SummeWeiss + 1
              End If
           Case 3                                                 ' Farbe Rot, abgeschlossen, Prüfung nicht bestanden
              SummeRotS = SummeRotS + 1
              If Zelle.Interior.Pattern <> xlUp Then
                 If Right(Zelle.Value, 1) = "W" Then              ' Prüfung nach Wiederholung ("W" in Zelle) nicht bestanden
                    SummeRotW = SummeRotW + 1
                 Else
                    SummeRot = SummeRot + 1
                 End If
              End If
           Case 4                                                 ' Farbe Grün, abgeschlossen, bestanden
              SummeGruenS = SummeGruenS + 1
              GesamtsummeGruen = GesamtsummeGruen + 1
              If Zelle.Interior.Pattern <> xlUp Then
                 If Right(Zelle.Value, 1) = "W" Then
                    SummeGruenW = SummeGruenW + 1
                 Else
                    SummeGruen = SummeGruen + 1
                 End If
              End If
           Case 6                                                 ' Farbe Gelb, Prüfung abgeschlossen, Abweichendes Ergebnis
              SummeGelb = SummeGelb + 1
           Case 15                                                ' Farbe Grau, Prüfung nicht geplant
              SummeGrau = SummeGrau + 1
           Case 37                                                ' Farbe Blau, Test geplant
              SummeBlau = SummeBlau + 1
           Case 8                                                 ' Türkis, 8, Prüfung wird durchgeführt
              SummeTuerkis = SummeTuerkis + 1
           Case 39                                                ' Lavendel, Prüfung abgeschlossen, Bewertung fehlt
              SummeLavendel = SummeLavendel + 1
        End Select


VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2000-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel

Code erstellt und getestet in Office 15


Aber das ist vermutlich nicht das, was Du suchst!