| #1 |
Neuer Benutzer
Registrierung: 09.10.2007 Karma:
| Hallo, Ich habe eine Spalte mit Werten z.B. A1-A20. Hat jemand eine Idee wie das funktionieren k�nnte? Danke lg |
|
| #2 |
MOF Profi
Registrierung: 28.10.2002 Karma:
| |
|
| #3 |
MOF Guru
Registrierung: 10.07.2007 Karma:
| Hallo jejeone, gleich eine Gegenfrage vorweg: Ist die Textfarbe von Hand ge�ndert oder mittels einer bedingten Formatierung? Ersteres ist leicht, zweiteres nicht ganz so leicht umzusetzen. Gr��e __________________ F�r 15 meiner Beitr�ge haben sich
Hilfesuchende mit einer Spende an Wikipedia oder die Tafeln (oder andere Hilfsorganisationen) bedankt - eine tolle Geste! |
|
| #4 |
Threadstarter Neuer Benutzer
Registrierung: 09.10.2007 Karma: | Danke f�r eure schnellen Antworten. Werde den Tip von Wahlo gleich mal testen. Die Textfarben werden per Hand festgelegt und NICHT Danke lg |
|
| #5 |
MOF Guru
Registrierung: 10.07.2007 Karma:
| Hallo jejeone, ich habe f�r mich mal 2 kleine Funktionen geschrieben, die bei von Hand ge�nderten Farben die Addition erm�glicht. Beide k�nnen als normale Tabellenfunktionen verwendet werden. (1) =Farbwert(Bezug) ermittelt den Farbwert der verwendeten Schriftfarbe Code: Function Farbwert(Zelle As Range) As Integer 'gibt den Farbwert des Bezuges zur�ck Application.Volatile If Zelle.Rows.Count > 1 Or Zelle.Columns.Count > 1 Then Farbwert = -1 Else If Zelle.Font.ColorIndex < 0 Then Farbwert = 0 Else Farbwert = Zelle.Font.ColorIndex End If End If End Function (2)
=Farbsumme(Beug, Farbwert, wahr / falsch) Code: Function Farbsumme(Bereich As Range, Farbe As Integer, Werte As Boolean) As Double 'addiert Werte oder z�hlt die Anzahl von Zellen in Abh�ngigkeit zur Hintergrundfarbe Application.Volatile Dim Ergebnis As Double Dim Zelle As Range For Each Zelle In Bereich If Zelle.Font.ColorIndex = Farbe Then If Werte Then 'summiert Werte der Zellen Ergebnis = Ergebnis + Zelle Else 'summiert Anzahl der Zellen Ergebnis = Ergebnis + 1 End If End If Next Zelle Farbsumme = Ergebnis End Function Die beiden Funktionen geh�ren in ein allgemeins Modul. Gr��e __________________ F�r 15 meiner Beitr�ge haben sich Hilfesuchende mit einer
Spende an Wikipedia oder die Tafeln (oder andere Hilfsorganisationen) bedankt - eine tolle Geste! |
|
| #6 |
Threadstarter Neuer Benutzer
Registrierung: 09.10.2007 Karma: | Hallo EarlFred, Hey das sieht ja voll super aus. Eigentlich genau das was ich K�nntest du mir ein Beispiel Excel File Online stellen? Viel Dank lg |
|
| #7 |
MOF Guru
Registrierung: 10.07.2007 Karma:
| Hallo jejeone, na klar, das schaffen wir Gr��e __________________ F�r 15 meiner Beitr�ge haben sich Hilfesuchende mit einer Spende an Wikipedia oder die Tafeln
(oder andere Hilfsorganisationen) bedankt - eine tolle Geste! |
|
| #8 |
Threadstarter Neuer Benutzer
Registrierung: 09.10.2007 Karma: | Sooo... nun hab ich es kapiert ;o) Wirklich Super danke. Ein gro�es Lob an das Forum und die User!! Danke EarlFred |
|