Herbers Excel-Forum - das Archiv

Formatierung zählen

Bild

Betrifft: Formatierung zählen
von: Thorsten

Geschrieben am: 07.04.2005 07:56:25
Hallo,
ich habe einen Kalender in Excel gemacht wo untereinander die Monate zu sehen sind (ohne Formeln einfach nur dieses Jahr, vieleicht aber hat jemand etwas was jedes Jahr sich aktuallisiert oder je nach eingabe das Jahr anzeigt) nun habe ich dort meinen Urlaub eingetragen und noch einige andere dinge, diese habe ich mit einer bestimmten Formatierung versehen. Nun möchte ich eine Zelle haben in der die Anzahl der jeweiligen Formatierung anzeigt, ich hab kein blassen dunst wie ich das hinbekommen soll.
MfG Thorsten
Bild

Betrifft: AW: Formatierung zählen
von: Marcus Rose

Geschrieben am: 07.04.2005 07:59:43
Hallo,
willst Du das als Urlaubsplaner haben? Da ist das ganze Internet doch voll von. Schau Dir z.B. diesen an:
http://xltreff.de/cgi-bin/click/download.cgi?action=count&url=http://xltreff.de/download/Urlaubsplan.xls
Gruß
Marcus
http://xltreff.de
Bild

Betrifft: AW: Formatierung zählen
von: Thorsten
Geschrieben am: 07.04.2005 08:05:57
Danke Marcus
für den schönen Urlaubskalender die Funktionen sind nicht schlecht aber ich weis nicht wie ich dort einen Tag als Urlaubstag markieren kann.
allerdings möchte ich trotz alle dem etwas womit ich meine Formatierung zählen kann.
MfG Thorsten
Bild

Betrifft: AW: Formatierung zählen
von: Marcus Rose

Geschrieben am: 07.04.2005 08:11:38
Hallo Thorsten
Das bleibt ja Dir überlassen. War nur ein Hinweis von meiner Seite. Urlaub trägst Du einfach mit U ein. Dann kommt noch BU für Bildungsurlaub usw ....
Zur bedingten Formatierung weiß ich nicht genau Bescheid. Vielleicht wirst Du aber auf folgender Seite fündig: http://home.media-n.de/ziplies/
Gruß
Marcus
http://xltreff.de
Bild

Betrifft: AW: Formatierung zählen
von: Marcus Rose

Geschrieben am: 07.04.2005 08:19:46
Hallo noch einmal
habe einmal die Recherche des Forums bemüht. https://www.herber.de/forum/archiv/484to488/t485111.htm
Das könnte doch etwas für Dich sein, oder?
Gruß
Marcus
http://xltreff.de
Bild

Betrifft: AW: Formatierung zählen
von: Thorsten

Geschrieben am: 07.04.2005 08:46:32
Danke für deine Bemühungen
und es scheint in der tat als ob es mir helfen könnte.
Problem bei der sache ist wahrscheinlich nun meine Mangelnden Kenntnisse über VBA um das Makro anzupassen
vieleicht kann mir dabei jemand helfen?
Bereich der geprüft werden soll: C5:I100
1. Farbe die gezählt werden soll, Ergebniss in Zelle L4: Farbwert 8 (türkis)
2. Farbe die gezählt werden soll, Ergebniss in Zelle L5: Farbwert 36 (besch)
3. Farbe die gezählt werden soll, Ergebniss in Zelle M4: Farbwert 35 (ausgebleichtes grün)
4. Farbe die gezählt werden soll, Ergebniss in Zelle M5: Farbwert 33 (hell blau)
--------------------------------------
Option Explicit
Sub Löschen()
Application.ScreenUpdating = False
Range("B10:BB69").Interior.ColorIndex = xlNone
Application.Goto Reference:=Range("B10"), Scroll:=True
Application.ScreenUpdating = True
Calculate
End Sub


' Anzahl der Zellen mit einer Farbe
' In Zelle=Farbsumme(A1:A10;3)
Function FarbsummeHA(Bereich As Range, Farbe As Integer)
'   Hintergrund
Dim Zelle
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
FarbsummeHA = FarbsummeHA + 1
End If
Next
End Function


Sub Zählen()
Calculate
End Sub

-------------------------
Bild

Betrifft: Frage noch offen
von: Thorsten
Geschrieben am: 07.04.2005 08:55:29
hab vergessen den hacken zu setzen...
MfG Thorsten
Bild

Betrifft: AW: Frage noch offen
von: Klaus-Dieter

Geschrieben am: 11.04.2005 22:02:35
Hallo Thorsten,
versuche es mal so:
Sub farben()
Dim s As Integer
Dim sp As Integer
Dim farb(4) As Integer
For s = 5 To 100
For sp = 3 To 9
Select Case Cells(s, sp).Interior.ColorIndex
Case 8
farb(1) = farb(1) + 1
Case 36
farb(2) = farb(2) + 1
Case 35
farb(3) = farb(3) + 1
Case 33
farb(4) = farb(4) + 1
End Select
Next sp
Next s
Cells(4, 12) = farb(1)
Cells(4, 13) = farb(2)
Cells(5, 12) = farb(3)
Cells(5, 13) = farb(4)
End Sub


Gruß Klaus-Dieter

Bild

Betrifft: AW: Frage noch offen
von: Thorsten

Geschrieben am: 12.04.2005 08:57:10
Hallo Klaus-Dieter,
hat wunderbar funktioniert, vielen dank.
MfG Thorsten
 Bild
Excel-Beispiele zum Thema "Formatierung zählen"
Automatische Datumformatierung unterdrücken Zahlenformatierung mit Punkt nach der 1. Ziffer
Unterschiedliche Schriftformatierung in Kopf-/Fußzeile Jahreskalender und bedingte Formatierung
Bedingte Formatierung auslesen Über die bedingte Formatierung den Minimalwert markieren
Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern Bedingte Formatierung in Abhängigkeit eines Zellkommentars
Markierung von Formeln über bedingte Formatierung Zelleinträgen über die Formatierung Spaltennamen hinzufügen