Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 209
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von Scab134 vom 17.02.2017, 11:42 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Farbige Zellen mit bestimmten Wert zählen

 (205 Hits)

Hallo zusammen,

ich habe eine Tabelle (B2:H105), in dieser stehen in den Spalten verschiedene Werte (z.b.: I2 oder E9) .
Einige dieser Werte wurden manuell farbig makiert.

Also mit

=ZELLE.ZUORDNEN(63;INDIREKT("ZS(-1)";)) für die Hintergrundfarbe

kann ich die Anzahl der farbigen Zellen ermitteln.
Das gleiche habe ich nochmal über VBA.

Aber ich hätte gerne eine Unterteilung bei dem Ergebnis der Farbigen Zellen,
Quasi: 5 farbige I2 (von 80) und 12 farbige E9 (von 80) in der Tablelle.


der Wert in klammern ist nicht erforderlich, sollte nur Anschauung dienen..


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von Nighty__ vom 17.02.2017, 15:18 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Scab134 .-)

Probier ma^l :-)

Gruss Nighty

Einzufügen
Alt+F11/Projectexplorer/AllgemeinesModul

Function FarbeZählen(Zellen As Range, FarbIndex As Long) As String
    Dim Zelle As Range
    Dim Zähler1 As Long, Zähler2 As Long
    For Each Zelle In Zellen
        If Cells(Zelle.Row, Zelle.Column).Interior.ColorIndex > -1 Then
            Zähler1 = Zähler1 + 1
            If Cells(Zelle.Row, Zelle.Column).Interior.ColorIndex = FarbIndex Then
                Zähler2 = Zähler2 + 1
            End If
        End If
    Next Zelle
    FarbeZählen = Zähler2 & " von " & Zähler1 & " in Spalte " & Zellen.Column
End Function


Formel ist!
=FarbeZählen(Bereich;FarbIndex)


Antwort noch nicht bewertet
Antwort 2 von Nighty__ vom 19.02.2017, 16:47 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Community ^^
    FarbIndex As Long

Ist natürlich auch nicht schlecht ... Milliarden von Farben .-)
Aus Long machen wir lieber Integer *schniff*
Gruß Nighty


Antwort noch nicht bewertet




Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2015 SupportNet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Thu Jun 22 21:12:11 2017