Office: Zählen farbig markierter Zellen

ChrisSalo · 5. Dezember 2007

Hallo,
ich befürchte ja, es funktioniert nicht, aber noch habe ich Hoffnung... ;-)

Also aufgrund von einer Stundenorganisation werden in einem bestimmten Bereich Zellen unterschiedlich farbig markiert (ausgefüllt), allerdings enthalten sie keinen Wert. Nun sollen die Zellen mit einer bestimmten Farbe gezählt werden.
Ist das irgendwie möglich?

chris

Century147 · 5. Dezember 2007

Hiermit funktioniert es

Sub zaehlen()

Worksheets("Tabelle1").Activate
Range("A1:h20").Select
'Bereich A1:h20 wo deine Stunden stehen
For Each zelle In Selection
If zelle.Interior.ColorIndex = 4 Then
'colorindex auf deine Farbe anpassen hier 4 = grün
b = b + 1
End If
Next

Cells(5, 5).Value = b
'schreibt den gezählten Wert in E5
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ChrisSalo · 5. Dezember 2007

Hi,
und wie verpacke ich das sinnvoll in eine Formel und wo bekomme ich die anderen ColorIndex her? Sorry, hab vorher noch nie mit subs gearbeitet...

Century147 · 5. Dezember 2007

Dein Blatt öffnen.

Alt + F11 --> Mit der Maus auf das Fenster VBA Projekt --> rechte Maustaste --> einfügen>Modul --> die sub kopieren und einfügen

wieder zu Excel --> Alt + F8 --> auf Ausführen klicken

schreib mal welche Farbe du benutzt, in welchem Bereich deine Stunden stehen und wo der Wert hingeschrieben werden soll dann ändere ich dir das Makro noch....

Gruss
Century147

ChrisSalo · 5. Dezember 2007

Spannend!!!
Also, folgende Farben werden verwendet: grün, rot, gelb, grau, blau

Bereich ist A1:AJ53

und stehen soll das ganze
für grün in E55
für rot in E56
für gelb in E57
für grau in E58
für blau in E59

Ich habe auch pro Monat verschiedene Tabellenblätter in einem Dokument... aber da muß ich dann halt nur den Namen ändern, oder!?
Danke!

ChrisSalo · 5. Dezember 2007

Oh, das rot war wohl doch orange...!!!

Century147 · 5. Dezember 2007

Probier mal aus. Bei mir klappts.

Falls bei dir nicht musst du mal nach den colorindex googeln und gegebenenfalls ändern.

Sub zaehlen()

Worksheets("Tabelle1").Activate
Range("A1:AJ53").Select

For Each zelle In Selection
'Gelb
If zelle.Interior.ColorIndex = 6 Then
a = a + 1
End If
'Grün
If zelle.Interior.ColorIndex = 10 Then
b = b + 1
End If
'Orange
If zelle.Interior.ColorIndex = 46 Then
c = c + 1
End If
'Grau 15%
If zelle.Interior.ColorIndex = 15 Then
d = d + 1
End If
'Blau
If zelle.Interior.ColorIndex = 5 Then
e = e + 1
End If
Next

Cells(55, 5).Value = a
Cells(56, 5).Value = b
Cells(57, 5).Value = c
Cells(58, 5).Value = d
Cells(59, 5).Value = e

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Century147 · 9. Dezember 2020

kannst auch mal hier nachsehen:

https://www.office-hilfe.com/support/threads/excel-auswertung-von-farbigen-zellen.6814/

schatzi · 5. Dezember 2007

Hey century, du bist ja schneller als der Blitz...

Das habe ich doch erst vor 10min reingestellt!

Century147 · 5. Dezember 2007

Hab ich zufällig direkt in den "ähnliche Beiträge gesehen.."

ChrisSalo · 6. Dezember 2007

Wow, ich bin begeistert!!! Du hast uns hier gerade tagelange Arbeit erspart! :-)

Aber noch eine Frage: kann man ein Modul für alle Arbeitsblätter in einer Datei anwenden??? (z. B. immer nur den Namen ändern und dann anweden!?!?)

Auf jeden Fall: DANKE für die super schnelle Hilfe!!!!

Century147 · 6. Dezember 2007

Kopier doch einfach den Text hintereinander und ändere nur den Tabellenblattnamen. Geht bestimmt auch einfacher, aber ich bin selbst erst Anfänger was die VBA programierung angeht.

Sub zaehlen()

Worksheets("Tabelle1").Activate
Range("A1:AJ53").Select

For Each zelle In Selection
'Gelb
If zelle.Interior.ColorIndex = 6 Then
a = a + 1
End If
'Grün
If zelle.Interior.ColorIndex = 10 Then
b = b + 1
End If
'Orange
If zelle.Interior.ColorIndex = 46 Then
c = c + 1
End If
'Grau 15%
If zelle.Interior.ColorIndex = 15 Then
d = d + 1
End If
'Blau
If zelle.Interior.ColorIndex = 5 Then
e = e + 1
End If
Next

Cells(55, 5).Value = a
Cells(56, 5).Value = b
Cells(57, 5).Value = c
Cells(58, 5).Value = d
Cells(59, 5).Value = e

Worksheets("Tabelle2").Activate
Range("A1:AJ53").Select

For Each zelle In Selection
'Gelb
If zelle.Interior.ColorIndex = 6 Then
a = a + 1
End If
'Grün
If zelle.Interior.ColorIndex = 10 Then
b = b + 1
End If
'Orange
If zelle.Interior.ColorIndex = 46 Then
c = c + 1
End If
'Grau 15%
If zelle.Interior.ColorIndex = 15 Then
d = d + 1
End If
'Blau
If zelle.Interior.ColorIndex = 5 Then
e = e + 1
End If
Next

Cells(55, 5).Value = a
Cells(56, 5).Value = b
Cells(57, 5).Value = c
Cells(58, 5).Value = d
Cells(59, 5).Value = e

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruss
Century147

ChrisSalo · 6. Dezember 2007

Danke, aber das klappt leider nicht! Werde also pro Arbeitsblatt ein Modul einfügen...

Century147 · 6. Dezember 2007

Bei mir klappts. Oder hast du pro Monat eine extra Datei?

ChrisSalo · 6. Dezember 2007

Hi, nein, jeder Monat hat nur ein extra Arbeitsblatt in ein und derselben Datei. Allerdings glaube ich, liegt es an was anderem, da meine Makros aus unerfindlichen Gründen plötzlich deaktiviert sind und ich sie nicht wieder aktiviert bekomme... :-(

Office: Zählen farbig markierter Zellen

Zählen farbig markierter Zellen

Zählen farbig markierter Zellen

Zählen farbig markierter Zellen

Zählen farbig markierter Zellen

Zählen farbig markierter Zellen

Zählen farbig markierter Zellen - Similar Threads - Zählen farbig markierter

Summieren farbiger Zahlen anhand des Farbcodes ohne VBA

Farbige, bedingte Formatierungsfelder zählen

Alle farbigen Zellen zählen.

Farbige Zellen zählen

Farbige Zahlen addieren

Farbige Zellen zählen (Excel Mac 2011)

Farbige Zellen zählen