3
Excel Zellen Hintergrundfarbe vergleichen
Hallo,
ich möchte einen Bereitschafts-Kalender in Exel erstellen.
Auswahl der Mitarbeiter erfolgt per Zell-Farbe.
Nun möchte ich die Wochenenden gerne auswerten. Jeder Tag besitzt 3 Zellen.
1. Zelle= Datum
2. Zelle= wenn Wochenende - dann grau
3. Zelle= Mitarbeiter Farbe
Wie zähle ich nun die Anzahl der Wochenenden pro Mitarbeiter:
if Zelle=grau and zelle-rechts-daneben=blau then x=x+1
am besten als Funktion, wobei ich hier die Farben als Variablen hab...
Wieso klappt dies nicht:
ich möchte einen Bereitschafts-Kalender in Exel erstellen.
Auswahl der Mitarbeiter erfolgt per Zell-Farbe.
Nun möchte ich die Wochenenden gerne auswerten. Jeder Tag besitzt 3 Zellen.
1. Zelle= Datum
2. Zelle= wenn Wochenende - dann grau
3. Zelle= Mitarbeiter Farbe
Wie zähle ich nun die Anzahl der Wochenenden pro Mitarbeiter:
if Zelle=grau and zelle-rechts-daneben=blau then x=x+1
am besten als Funktion, wobei ich hier die Farben als Variablen hab...
Die Gesamt-Tage habe ich so berechnet (FUNKTION)
Function CountColor(rng As Range, iColor As Integer)
Dim rngAct As Range
Dim iCount As Integer
Application.Volatile
For Each rngAct In rng.Cells
If rngAct.Interior.ColorIndex = iColor Then
iCount = iCount + 1
End If
Next rngAct
CountColor = iCount
End FunctionFunction CountWeekend(rng As Range, iColor As Integer)
Dim rngAct As Range
Dim iCount As Integer
Application.Volatile
For Each rngAct In rng.Cells
If rngAct.Interior.ColorIndex = iColor And ActiveCell.Offset(0, -1).Value.Interior.ColorIndex = "15" Then
iCount = iCount + 1
End If
Next rngAct
CountWeekend = iCount
End Function
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Kommentar vom Moderator Biber am Sep 22, 2009 um 16:52:34 Uhr
Beitrag von "Entwicklung" nach "Excel" verschoben.
Content-Key: 125523
Url: https://administrator.de/contentid/125523
Printed on: April 24, 2024 at 11:04 o'clock
3 Comments
Latest comment
Wie postet man 100% falsch?
Nachdem man Google, Bing, Yahoo & Co., die FAQs und die Boardsuche erfolgreich ignoriert hat, erstellt man mindestens 5 neue Themen, alle in unterschiedlichen aber defintiv falschen Unterforen, möglichst mit kreativem Titel und undeutlichem Text, damit sich jeder etwas anderes vorstellen kann.
Farbe der aktiven Zelle ermitteln: click mich sanft
auch wenn der Beitrag dort über 5 Jahre alt ist, funktioniert es mit Excel 2003 trotzdem immer noch:
Nachdem man Google, Bing, Yahoo & Co., die FAQs und die Boardsuche erfolgreich ignoriert hat, erstellt man mindestens 5 neue Themen, alle in unterschiedlichen aber defintiv falschen Unterforen, möglichst mit kreativem Titel und undeutlichem Text, damit sich jeder etwas anderes vorstellen kann.
Farbe der aktiven Zelle ermitteln: click mich sanft
auch wenn der Beitrag dort über 5 Jahre alt ist, funktioniert es mit Excel 2003 trotzdem immer noch:
Sub ZellFarbe()
Farbe = ActiveCell.Interior.ColorIndex
End Sub
Dies ist mir bekannt !
Es geht mir eher darum:
if Zelle=grau and zelle-rechts-daneben=blau then x=x+1
Es geht mir eher darum:
if Zelle=grau and zelle-rechts-daneben=blau then x=x+1
Habs hinbekommen:
[Edit Biber] Codetags ergänzt [Edit]
Function CountWeekend(rng As Range, iColor As Integer)
Dim rngAct As Range
Dim iCount As Integer
Application.Volatile
For Each rngAct In rng.Cells
If rngAct.Interior.ColorIndex = "15" And rngAct.Offset(0, 1).Interior.ColorIndex = iColor Then
iCount = iCount + 1
End If
Next rngAct
CountWeekend = iCount
End Function[Edit Biber] Codetags ergänzt [Edit]
