Office - Word, Excel und Co. 9.753 Themen, 41.598 Beiträge

farbige Zellen addieren in Excel

Alf / 10 Antworten / Baumansicht Nickles

ich will in einer Tabelle in jeder Zeile "interessante" Zahlen mit farbigen Hintergrund markieren (per Hand, bedingte Formatierung geht bei der Tabelle nicht, da an keine Regeln gebunden..), diese sollen dann automatisch in einer Summenspalte aufaddiert werden.


 


gibt es diese Mgl. so nach dem Beispiel:


wenn der Hintergrund einer Zelle (von A3 bis M3) grün ist, so addiere all diese grünen Zellen in der Zelle x3..., wenn nicht (also rot oder blau oder garnicht), sollen diese Zellen in der Zeile bei der Addition ignoriert werden


möglich? und wie?


bin über jeden Tip dankbar

bei Antwort benachrichtigen
Kolti Alf „farbige Zellen addieren in Excel“
Optionen
bei Antwort benachrichtigen
Alf Kolti „http://www.pctip.ch/helpdesk/kummerkasten/archiv/office/21314.asp“
Optionen

tja, das klingt erstmal nicht übel auf dem Link, aber ich will ja nicht die grünen Zellen zählen, sondern da stehen Zahlen drin, die ich addieren will, wenn Zelle grün, wenn nicht grün, dann ignorieren bei der Addition...

bei Antwort benachrichtigen
Kolti Alf „tja, das klingt erstmal nicht übel auf dem Link, aber ich will ja nicht die...“
Optionen

Das ist mir klar, aber ein wenig muß man schon selber machen. Ich habe mir extra noch ein Buch bei eBay gekauft: Jetzt lerne ich VBA mit Excel.
Übrigens, das war nur ein Link. www.google.de hat einen ganzen Haufen davon.

bei Antwort benachrichtigen
Borlander Alf „farbige Zellen addieren in Excel“
Optionen

Hallo Alf,
das lässt sich mit einer einfachen Formel nicht lösen. Dafür musst Du VBA bemühen...

CU Borlander

bei Antwort benachrichtigen
Alf Nachtrag zu: „farbige Zellen addieren in Excel“
Optionen

Uff, davon habe ich keinen Schimmer, visual Basic, wenn ich mich recht erinnere, also keine Chance für mich, das hinzubekommen .----oder

bei Antwort benachrichtigen
Kolti Alf „farbige Zellen addieren in Excel“
Optionen

Folgende Zellen rot markieren:
A1, A3, A5 und die Zahlen von A1 bis A5 mit 1 bis 5 ausfüllen.
Ergebnis wäre 1 + 3 + 5 = 9
Hier dazu eine kleines Makro:

Sub Farbensummieren()
Dim zelle As Object
Dim rot%
[a1:a5].Select
rot = 0
For Each zelle In Selection
If zelle.Interior.ColorIndex = 3 Then rot = rot + zelle.Value
Next

' Ausgabe
Range("A8").Select
ActiveCell.FormulaR1C1 = rot
Range("A9").Select
End Sub

Damit wird Du wohl Dein Problem lösen können, oder?

bei Antwort benachrichtigen
Alf Nachtrag zu: „farbige Zellen addieren in Excel“
Optionen

werds gleich probieren, vielen Dank erstmal..
Alf

bei Antwort benachrichtigen
Alf Nachtrag zu: „farbige Zellen addieren in Excel“
Optionen

gelesen, überlegt, probiert und groß Danke, jetzt siehts so aus und funzt:

Sub grün_addieren()
Dim Zelle As Object
Dim gruen%
Range(ActiveCell.Offset(0, -13), ActiveCell.Offset(0, -1)).Select
'Variablen auf 0 setzen
grün = 0
For Each Zelle In Selection
If Zelle.Interior.ColorIndex = 50 Then gruen = gruen + Zelle.Value
Next
ActiveCell.Offset(0, 13).Select
ActiveCell.Formula = gruen
End Sub


wo setze ich jetzt unter Excel 2000 den Butten in die Leiste, oder muss ich immer

Strg+irgendwas drücken?

bei Antwort benachrichtigen
Kolti Alf „alles roger“
Optionen

Du kannst Dir jetzt einen Button stricken mit "Steuerelement-Toolbox" und den irgendwo hinpacken.

Hier hast Du noch eine Funktion zum Experimentieren, um einzelne Zellen abzufragen:

Public Function Farbe(rngColor As Range, intColor As Integer) As Boolean
If rngColor.Interior.ColorIndex = intColor Then Farbe = True
End Function

Der Aufruf ist direkt in der Zelle. Beispiel:
=Farbe(a1;1) Die Antwort in der Zelle ist Falsch oder Wahr.

Oder ein Makro, um alle Farbwerte zu ermitteln:

Sub Farbtabelle()
Dim intCounter As Integer
Workbooks.Add
For intCounter = 1 To 56
Cells(intCounter, 1).Interior.ColorIndex = intCounter
Cells(intCounter, 2).Value = intCounter
Next intCounter
End Sub

bei Antwort benachrichtigen
Alf Nachtrag zu: „farbige Zellen addieren in Excel“
Optionen

Danke Kolti, bin auf den Geschmack gekommen, gestern bei ebay geschaut, heute mal sehen, VBA-Grundlagen Buch muss her, ich WILL mich da reinfitzen...

Also, bis später

bei Antwort benachrichtigen