Excel farbige Felder addieren

[weiss Michael]

In einer Tabelle habe ich verschiedene Farben den Feldern (A,B) zugeordnet um sie übersichtlicher zu machen. Jetzt habe ich die Frage ob ich z.B. alle grünen Felder addieren kann??

[Tanto]

Hallo Michael

Wie gewünscht

Liebe Grüße Tanto

Die Function ist Alt+F11/Projektexplorer/AllgemeinesModul einzufügen

Syntax
= WksWert(Bereich,GesuchterFarbIndex)

 
Function WksWert(Zellen As Range, FarbIndex As Long) As Long
    Dim Zelle As Range
    For Each Zelle In Zellen
        If Cells(Zelle.Row, Zelle.Column).Interior.ColorIndex = FarbIndex Then
            WksWert = WksWert + Cells(Zelle.Row, Zelle.Column)
        End If
    Next Zelle
End Function

[Michi]

Hallo,

bei youtube gibt es einige Videos dazu, ist vielleicht etwas anschaulicher.

[weiss Michael]

An Tanto:
Mit deinen Angaben kann ich als nur Benutzer von Excel leider nichts anfangen.Ich weiß nicht nach drücken von Alt+F11 mehr weiter????
An Michi:
Da ich eigentlich in youtube ein absuluter Leihe bin kannst du mir vielleicht den Link schinken damit ich etwas über die Funktion sehen Kann ?
Danke

[Tanto]

1. Zeigen Sie im Menü Extras von Microsoft Excel auf Makro, und klicken Sie dann auf Visual Basic-Editor.
2. Klicken Sie im Menü Einfügen auf Modul.
3. Geben Sie Ihren Code in das Codefenster des Moduls ein, oder kopieren Sie ihn hinein.
4. Zeigen Sie im Visual Basic-Editor-Menü von Microsoft Excel auf Datei, und klicken Sie dann auf Schließen und zurück zu Microsoft Excel
5. Fügen Sie nun die Benutzerdifinierte Function in eine Zelle ein
6. z.b. = WksWert(A1:A100;3)
7. Der Suchbereich wäre bei diesem Beispiel Zelle A1 bis Zelle A100,der Farbindex 3 steht für Rot

Hallo Community

Hoffe es ist nun verständlicher

Liebe Grüße Tanto

[weiss Michael]

Hallo Tanto
Danke das du dir die Mühe gemacht hast es eine Anfänger der heute sein erstes Makro probiert hat es so zu erklären das es jeder versteht.
Es funktioniert !!!!
Kann es sein das die Summe nicht ganz stimmt: Nach dem Komma wird immer auf- oder abgerundet.
Nachdem ich lange probiert habe kann ich auch das Makro speichern. Nur weiß ich noch nicht ob ich es so speichern kann das man es in mehreren Tabellen verwenden kann? Vielleicht geht das auch??

[Tanto]

Hallo Michael

Eine Variante wäre ein AddInn

Liebe Grüße Tanto

1. In eine leere Mappe ist der ausgewählte Code einzufügen
2. Clicken Sie im Menü Datei auf Speichern unter
3. Als Dateityp ist Microsoft Excel-Add-Inn einzustellen und ein Eindeutiger Name für das zukünftige AddInn
4. Clicken Sie auf Extras/Add-Inns-Manager und setzen das Häckchen bei ihrem AddInn
5. Nun steht die Funktion für Excel Global bereit

Sollte sich eine beliebige Function nicht Aktualisieren,dann diese mit folgenden Code ergänzen(Erste Zeile)

 
Application.Volatile

[Tunarus]

Hallo Tanto,

großartiger Tipp, danke!

Gruß,
Tunarus

[weiss Michael]

Danke Tanto
Es bleibt also nur noch das Problem das man keine Geldsummen so addieren kann da es hintern Komma immer auf- und abrundet.Wenn ich z.B. 74,99 € und 300,51 € addieren erscheint 376,00 €

[Tanto]

Hallo Michael

Die Variable WksWert wurde den Erfordernissen angepasst,vom Datentyp Long auf Double geändert

Liebe Grüße Tanto

 
Function WksWert(Zellen As Range, FarbIndex As Long) As Double
    Dim Zelle As Range
    For Each Zelle In Zellen
        If Cells(Zelle.Row, Zelle.Column).Interior.ColorIndex = FarbIndex Then
            WksWert = WksWert + Cells(Zelle.Row, Zelle.Column)
        End If
    Next Zelle
End Function

[weiss Michael]

Super!!!!!
Es gibt in diesem Forum Spitzen Leute. Danke

[weiss Michael]

Bin wieder auf ein Problem gestoßen.
Beim Befehl WksWert kann ich keinen Felder ohne Farbe addieren. Laut Liste soll ich "0" eingeben aber da erfolgt keine Reaktion. (natülich ohne Anführungszeichen)
Vielleicht kannst du mir auch da weiterhelfen?

[Sascha Oliver Haak]

@weiss michi

Der Farbwert für keine Farbe ist -4142. Versuch es mal.

Gruß
Sascha

[weiss Michael]

Klasse!!!
Danke aber wie kommt man darauf?