Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Mit Farben rechnen
#1
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
to top
#2
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 ...
to top
#3
Hallo,
erstmal vielen Dank für Deine Antwort.
Einfärben will ich manuell.
to top
#4
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: 8)
to top
#5
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?
to top
#6
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 ...
to top
#7
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!
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Datum und Farben automatisch übertragen mastercons 2 53 09.11.2016, 04:40
Letzter Beitrag: schauan
  Mit Zeit rechnen fhares 4 74 07.11.2016, 16:37
Letzter Beitrag: Jockel
  Farben rechnen Leo-world 2 114 07.10.2016, 16:31
Letzter Beitrag: Leo-world
  Fläche zwischen zwei interpolierten Linien färben (Punkt XY Diagram mit Bereich) Abitus 8 261 04.10.2016, 14:24
Letzter Beitrag: chris-ka
  Zellen Farben zuweisen über VBA cavok 5 184 03.10.2016, 11:11
Letzter Beitrag: cavok
  Mit Zeiten rechnen Stefan1 4 170 02.10.2016, 12:31
Letzter Beitrag: Stefan1
  Diagramm Linie/Punkte Färben Luffy 5 142 29.09.2016, 09:43
Letzter Beitrag: respecter11
  Rechnen mit Uhrzeiten xJustx 3 207 05.09.2016, 14:19
Letzter Beitrag: hisid1
  Werte horizontal rechnen. Michael77 5 170 04.09.2016, 10:35
Letzter Beitrag: RPP63
  Rechnen mit Höchst- und Mindestwerten Hardbopper 11 450 24.08.2016, 01:30
Letzter Beitrag: Ego

Gehe zu:


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