Clever-Excel-Forum › Office-Anwendungen › Excel v
Mit Farben rechnen

Thema geschlossen 
Baumstrukturmodus
Mit Farben rechnen
hs1955 Offline
pausiert
Registriert seit: 15.01.2015
Version(en): 2007
#1
16.04.2015, 10:23
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
Suchen
Top
Kl@us-M. Offline
:-)))
Registriert seit: 11.04.2014
Version(en): 2003/2007/2013 (bei Bedarf auch noch '97/2000/2010)
#2
16.04.2015, 10:36
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 ...
Überlegen macht überlegen
Gruss aus dem schönen Hunsrück
_______ Klaus-Martin _______
Homepage Suchen
Top
hs1955 Offline
pausiert
ThreadStarter
Registriert seit: 15.01.2015
Version(en): 2007
#3
16.04.2015, 10:51
Hallo,
erstmal vielen Dank für Deine Antwort.
Einfärben will ich manuell.
Suchen
Top
Kl@us-M. Offline
:-)))
Registriert seit: 11.04.2014
Version(en): 2003/2007/2013 (bei Bedarf auch noch '97/2000/2010)
#4
16.04.2015, 11:05
Hi,

schau Dir mal die angehängte Beispielmappe und den Code unter dem CommandButton an, vielleicht kannst Du damit etwas anfangen ...


Angehängte Dateien
.xlsm   329.xlsm (Größe: 32,59 KB / Downloads: 9)
Überlegen macht überlegen
Gruss aus dem schönen Hunsrück
_______ Klaus-Martin _______
Homepage Suchen
Top
hs1955 Offline
pausiert
ThreadStarter
Registriert seit: 15.01.2015
Version(en): 2007
#5
16.04.2015, 11:31
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?
Suchen
Top
Kl@us-M. Offline
:-)))
Registriert seit: 11.04.2014
Version(en): 2003/2007/2013 (bei Bedarf auch noch '97/2000/2010)
#6
17.04.2015, 08:42
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 ...
Überlegen macht überlegen
Gruss aus dem schönen Hunsrück
_______ Klaus-Martin _______
Homepage Suchen
Top
Rabe Offline
:-)
Registriert seit: 10.04.2014
Version(en): 2016 + 365
#7
18.04.2015, 07:36
Hi,

(16.04.2015, 11: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!
Suchen
Top
Thema geschlossen 


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste