Office: Wenn dann Funktion

Hallo ihr Spezies:-)

könntet Ihr mir bitte helfen bei einer Excel Funtion?

Folgendes Problem.

Ich möchte in Tabellenblatt A das Ergebniss bekommen
Die Daten liegen auf Tabellenblatt B

Aber ich möchte nur die summe von den farbig markierten bekommen.

Beispiel

5000<- Zelle ist rot markiert
5000<- Zelle ist rot markiert
8000
8000

Zur Info: Ich kann den Vorgang der erfolgen kann, also hier zb. die Kostenfreigabe nur über die markierung durch eine farbe machen, da so gewünscht:-(

habt ihr eine Idee wie die Formel lauten könnte?

Danke schon mal im Vorraus

Tschööö

 

Hallo!

Das kommt darauf an wie die Farbe entstanden ist:
Wenn dies über die bedingte Formatierung geschah, dann ist es mit Excel-Bordmitteln möglich, wenn du uns die Bedingung mitteilst.
Wenn die Zellen händisch eingefärbt wurden, dann brauchst du entweder VBA, z.B. eine benutzerdefinierte Funktion, oder du arbeitest mit einer Hillfsspalte un den alten Excel4Makro-Funktionen.
Aber für jeden dieser Fälle musst du noch verraten, WAS du gefärbt hast: Die Schriftfarbe oder den Zellhintergrund?
Das wird noch nicht richtig klar.

PS: Bestell mal der Person, die die Bestimmung der Summe über die Farbe verlangt, einen schönen Gruß von mir:
Dies ist die denkbar ungünstigste Methode einer Summenbildung!!!

 

Die Personen wollen nicht hören Schatzi..

Die Zellen im Blatt B werden mit der Hand farbig markiert.

Die 3 Zellen die von den 5 Zellen farbig markiert wurden, sollen nun in Tabellenblatt A als Summe in Zelle x gezeigt werden.

die machen es mir aber auch schwer..###

Ich muss diese Funktion dann eben noch auf 150 andere Listen machen, aber wenn ich mal eine fertig habe mit eurer Hilfe, muss ich ja nur noch kopier,

Danke für die schnelle Antwort ....

Bye

 

Hallo!

Wenn es auch noch über verschiedene Blätter gehen soll, dann bleibt eigentlich nur VBA:
Öffne aus der Tabelle heraus den VBA-Editor mit Alt+F11
Wähle Menü Einfügen > Modul
Kopiere diesen Code ins Codefenster rechts:

Code:

Function Farbsumme(Bereich As Range, Farbe As Integer)
Dim Zelle As Range
Application.Volatile
Farbsumme = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + Zelle
End If
Next
End Function

Nun steht dir in der Tabelle die Funktion "Farbsumme" zur Verfügung.

=Farbsumme(A1:A20;3)

summiert alle Zellen mit rotem (Colorindex=3) Zellhintergrund im Bereich A1:A20.

 

also echt Super

Vielen Dank für Deine Hilf Schatzi,

es funzt super, nur noch eine Frage wo finde ich die Nummer für die Farbe,( also wenn ich die Farben ändern möchte?)

Vielen Dank noch mal ...

Bye Balschor

 

Hallo!

Schreibe dieses Makro in eine leere Mappe und lass es laufen. Alle 56 Colorindizes werden aufgelistet.

Code:

Sub Farbindex()
Dim i As Byte
For i = 1 To 56
Cells(i, 1) = i
Cells(i, 2).Interior.ColorIndex = i
Next i
End Sub

Bedenke aber bei der Funktion Farbsumme, dass sich diese erst nach einer Neuberechnung aktualisiert. Eine Farbänderung allein ruft noch keine Neuberechnung hervor...

 

?

Wenn ich also jetzt die Liste sende und meine Gesprächspartner ihre jeweiligen Zellen mit der vorgegeben Farbe markieren, bekomme ich die neuen Summen nicht auf Tabellenpblatt a ausgeworfen?

hmm..

 

vieleicht..

gibt es dann eine Möglichkeit wie ich die 50 Zellen in Blatt a mit einen knopf oder wie auch immer neu Berechne?

jetzt wird es wild.. ich erschlag meinen Boss... mit nem Papierblatt mit lauter Excel Formeln drauf...

 

Durch drücken von F9 kannst du eine Neuberechnung erzwingen.

 

Frage

Also erst mal mega Kompliment.
Für so schnelle und echt gute Hilfe, Frühstückst du das Programm jeden morgen nach dem Aufstehen?.-)

Zurück zum Thema: Könntes du mir noch sagen wie ich jetzt einen Knopf mache ? Situation ist wie folgend

500
5000
3500
3500
4680
4580

sind zb. die Ergebnisse die es durch die Farbsumme in Spalte A auswirft.
jetzt möchte ich eine Zelle weiter oben( die unterstrichene) einen knopf haben der aktualisieren heist wo mann drauf drückt und dieser Knopf die F9 taste durchführt oder eben die Neuberechnung.

Hast du eine Idee? wie ich das anstllen kann?

Danke für die bisherige schnelle Hilfe

 

Also erst mal mega Kompliment.
Für so schnelle und echt gute Hilfe, Frühstückst du das Programm jeden morgen nach dem Aufstehen?.-)

Zurück zum Thema: Könntes du mir noch sagen wie ich jetzt einen Knopf mache ? Situation ist wie folgend

aktuell
500
5000
3500
3500
4680
4580

sind zb. die Ergebnisse die es durch die Farbsumme in Spalte A auswirft.
jetzt möchte ich eine Zelle weiter oben( die unterstrichene) einen knopf haben der aktualisieren heist wo mann drauf drückt und dieser Knopf die F9 taste durchführt oder eben die Neuberechnung.

Hast du eine Idee? wie ich das anstllen kann?

Danke für die bisherige schnelle Hilfe

 

Kein Problem!

Erstelle einen Button aus der Symbolleiste "Steuerelemente-Toolbox"
Rechtsklicke den Button und wähle "Code anzeigen"
Zwischen die beiden vorgefertigten Zeilen schreibst du

Code:

Application.Calculate

Zurück in der Tabelle beende den Entwurfsmodus und der Button steht dir zur Verfügung.

PS: Zum Frühstück hatte ich heute zwei Schinkenbrote und einen Trinkjoghurt... :-D

 

hi, geht nicht

habe es so gemacht wie du gesagt hast,
der code ist auch bei der Schaltfläche jetzt hinterlegt, wenn ich den aber dan drücke ( bin auch nicht im Entwurfsmodus) passiert nix,
wenn ich normal F9 drücke ändert sich das Ergebnis

Und Nu?

 

Hallo!

In der angehängten Beispielmappe funktioniert es bei mir...
Und bei dir?

 

ahh super

dank Dir hat gefunzt super..

Ehm schüchtern frag.. und was ich jetzt sagen wenn ich Will das er mir in einer anderen Spalte alle Zellen summiert die keine Farbe haben :shock:


sorry für die ganzen Fragen..