anzahl zellen befüllen nach einer voreingestellten zahl

Hallo Harald,

das geht einfach mit VBA. Wo steht der Wert der Berechnung und ab welcher Zeile soll "w" eingetragen werden?

Claus

Zähl doch die Anzahl der nicht leeren Zellen und wenn >9 dann formatierst Du die Spalte rot... also eine bedingte Formatierung.

Andreas.

...

Hallo,

deine Beschreibung ist nicht ganz klar? Wie ist deine Tabelle aufgebaut? Wie ist darin der Dienstag hinterlegt? Als Text oder als Datum? Was genau willst du nun zählen? Alle gelben Zellen ohne die Dienstage? Oder willst du Spalten zählen, die Ferien mit
einem Dienstag haben, aber den Dienstag nicht mitrechnen? Wie ist der Code deines Makros?

Claus

Hallo Claus, vielen dank für die schnelle Antwort.

code vom Makro ist

Function AnzahlFarben(Farbe, Bereich)

'Rot=3,Grün=4,Blau=5,Gelb=6

Anzahl = 0

For Each Zelle In Bereich

If Zelle.Interior.ColorIndex = Farbe Then

Anzahl = Anzahl + 1

End If

Next

AnzahlFarben = Anzahl

End Function

im Kalender ist der Dienstag als "Di" gespeichert.

die Ferien sind mit einer gelben Füllung hinterlegt.

ich möchte die Dienstage mit gelber Füllung zählen. Gelbe Füllungen zählen funktioniert, aber so zählt der halt alle Tage mit gelber Füllung. Ich möchte nur die Dienstage die gelb gefüllt sind zählen. VG

Hallo Andreas,

danke für deinen Tipp, aber so einfach ist es leider nicht. Zum einen weiß ich das (soll jetzt nicht arrogant klingen), könnte diesen Fehlergrund also selbst erkennen. Zum zweiten müsste ich ja dann wenigstens die ANZAHL sehen - die fehlt aber auch. Und
drittens stimmt nicht, was du sagst , nichts für ungut. Sobald mindestens zwei nicht-leere Zellen ausgewählt sind und dabei mindestens eine eine Zahl enthält, werden die arithmetischen Ergebnisse angezeigt. "Numerische Zahl" zählt allerdings Texte, also
auch solche "Text-Zahlen" nicht mit ("Numerische Zahl" entspricht also ANZAHL(), während "Anzahl" tatsächlich ANZAHL2() entspricht, etwas verwirrend ). Deshalb gibt's das ja vermutlich auch.

Ach so: Momentan seh ich alles in der Statusleiste. Deshalb kann ich das auch so detailliert auseinanderklamüsern .

Grüße,

Harald

Hallo,

was genau hast du vor? Willst du von den vorhandenen Zahlen die ersten drei Stellen separieren?

Wenn deine Zahlen ab A1 abwärts stehen, kannst du dann in die erste Zeile schreiben:

=--TEIL($A1;SPALTE(A1);1)

und 3 Zellen nach rechts und dann nach unten ziehen, um die ersten 3 Stellen deiner Zahlen zu erhalten.

Du kannst aber auch die erste Stelle zählen und durch die Anzahl der Zahlen dividieren, um den prozentualen Anteil der ersten Ziffer zu erhalten. Im Beispiel für Zahlen in A1:A1200 und die 1 als erste Ziffer:

=SUMMENPRODUKT(N(--TEIL($A$1:$A$1200;1;1)=1))/ANZAHL(A1:A1200)

Claus