Anzahl von gelb hinterlegten Zellen ausgeben

gelb · 2016-09-20T13:04:16+00:00

Hallo Zusammen, ich würde gerne die Anzahl von gelb hinterlegten Zellen in einer Spalte anzeigen lassen. Wisst ihr, ob das möglich ist und wenn ja wie? Im Voraus vielen Dank! Beste Grüße Alex

Hi Alex
Geht nur mit VBA z.B. so...
Alt + F11, Menü Einfügen, Modul, Code rein kopieren

Function AnzahlGelb(rng As Range) As Long
Dim r As Range
For Each r In rng
If r.Interior.Color = 65535 Then _
AnzahlGelb = AnzahlGelb + 1
Next r
End Function

Anschliessend wie eine Formel verwenden:
=AnzahlGelb(A1:A10)
Der Bereich sollte eingeschränkt bleiben (nicht auf eine ganze Spalte anwenden). Da die Zellformatierung keine Neuberechnung auslöst, müsstest du dies manuell mit F9 machen. Alternativ machen wir aus der Funktion ein Makro, dann müsstest du für die Aktualisierung das Makro starten.
Den exakten Farb-Code (65536) für dein Gelb findest du raus, wenn du den Makrorekorder aktivierst, eine Zelle einfärbst und anschliessend den Code anschaust.
cu
Chris

…Daniel… ;-)
Jahrelang hatte man den Eindruck, dass die niemand bei MS irgendwelche Arbeit machen. Das kam erst mit Xl12, aber auch nur wenig. Eine allgemeine UDF benötigt auch nur aus ähnlichen Gründen Pflege, wenn ihre Entwicklung erst mal abgeschlossen ist. Anders sieht's da mit UDFs aus, die auf API-Fktt zugreifen. Die bereiten sicher (ebenso wie spezielle VBA-Projekte) mehr PflegeAufwand (geänderte DLLs u.ä.), weshalb ich so etwas auch nicht verwende. Im Falle von UDFs müsste sich da schon VBA drastisch verändern, andere ObjektBezeichner und so. So etwas traf bei der neuen BedingtFormatierung zu, so dass meine darauf bezogenen Alt-UDFs kaum noch fktionieren. Aber das ist ja ohnehin ein Kapitel für sich, besonders, wenn man den Grund erkennen muss, warum .DisplayFormat-Verwendung in UDFs bei ZellFml-Einsatz gesperrt ist — bei ZellFarben kann man die Sperre umgehen, bei SchriftFarben bringt die Umgehung kein sinnvolles Ergebnis, also „liegt dort der Hund begraben“…
Die „Verschwendung“ liegt darin, dass man uU diese Art von UDF in jedes VBA-Projekt integrieren müsste, auch, wenn das ganze „Projekt“ nur aus ihr besteht! Die Konsequenzen sind dann ja klar. Die Nutzung eines AddIns oder von Vglbarem wird dann uU kompliziert und setzt eine gute Organisation (u.Dokumentation) voraus.
Um dem allen aus dem Weg zu gehen, neigen DV-Administratoren dann zum Rundum- bzw Kahlschlag, obwohl es ggf besser wäre, nur die diesbzgl Ambitionen mancher Mitarbeiter zu dämpfen…
Der Aufwand liegt dann beim bestallten Pgmmierer, nicht beim ambitionierten Mitarbeiter!
Gruß, Luc :-?

Anzahl von gelb hinterlegten Zellen ausgeben

Forumthread: Anzahl von gelb hinterlegten Zellen ausgeben

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Anzahl von gelb hinterlegten Zellen ausgeben

Forumthread: Anzahl von gelb hinterlegten Zellen ausgeben

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread