Supportnet / Forum / Tabellenkalkulation
nur rote Zellen addieren?
Frage
Hallo,
ich versuche, in Excel folgendes:
auf einem Tabellenblatt sind rote und schwarze Zahlen (per Schriftart festgelegt)
Nun sollen am Ende jeder Spalte nur die Zahlen addiert werden, die rot sind, bzw. die schwarz sind. Geht sowas auch in Excel?
Antwort 1 von Annan
Hallo,
das geht ! Wieviele Spalten sind es denn ? Und am Ende einer Spalte jeweils eine Zelle für die Summe ROT u. eine Zelle für die Summe SCHWARZ ? Sind Leerzellen innerhalb dieser Spalten oder steht in jeder Zelle eine Zahl ?
Mfg
das geht ! Wieviele Spalten sind es denn ? Und am Ende einer Spalte jeweils eine Zelle für die Summe ROT u. eine Zelle für die Summe SCHWARZ ? Sind Leerzellen innerhalb dieser Spalten oder steht in jeder Zelle eine Zahl ?
Mfg
Antwort 2 von Yossarian
Such mit einer suchmaschine nach den Stichworten
function farbsumme
Wirst schnell fündig.
Yossarian
function farbsumme
Wirst schnell fündig.
Yossarian
Antwort 3 von coros
Nabend Rene,
schau mal auf meiner HP in der Rubrik Beispieldateien vorbei. Da habe ich eine Beispieldatei (Beispiel Nr. 20) die das Thema behandelt.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
schau mal auf meiner HP in der Rubrik Beispieldateien vorbei. Da habe ich eine Beispieldatei (Beispiel Nr. 20) die das Thema behandelt.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 4 von ReneL
ja, es sind auch Leerzellen zwischen
das ist ja Spize, wenn es gehen könnte
das ist ja Spize, wenn es gehen könnte
Antwort 5 von Annan
Hallo,
da du dich ja nicht näher äußerst, wieviele Spalten u. wo addiert werden soll, nehme ich als Beispiel den Bereich A1:A10. In Zelle A12 ist die Summe der roten Zahlen u. in A13 die Summe der schwarzen Zahlen:
Option Explicit
Sub Farbenzählen()
Dim Zelle As Object
Dim schwarz%, rot%
Application.ScreenUpdating = False
[A1:A10].Select
schwarz = 0: rot = 0
For Each Zelle In Selection
If Zelle.Font.ColorIndex = 1 Then schwarz = schwarz + Zelle.Value
If Zelle.Font.ColorIndex = 3 Then rot = rot + Zelle.Value
Next
[A12].Value = rot
[A13].Value = schwarz
Application.ScreenUpdating = True
[a1].Select
End Sub
Füge diesen Code in ein Standardmodul ein u. weise ihn einer Schaltfläche zu. Falls es noch Probleme geben sollte, melde dich oder sende mir eine Mail, dann kann ich dir eine Beispielsmappe senden.
MfG
da du dich ja nicht näher äußerst, wieviele Spalten u. wo addiert werden soll, nehme ich als Beispiel den Bereich A1:A10. In Zelle A12 ist die Summe der roten Zahlen u. in A13 die Summe der schwarzen Zahlen:
Option Explicit
Sub Farbenzählen()
Dim Zelle As Object
Dim schwarz%, rot%
Application.ScreenUpdating = False
[A1:A10].Select
schwarz = 0: rot = 0
For Each Zelle In Selection
If Zelle.Font.ColorIndex = 1 Then schwarz = schwarz + Zelle.Value
If Zelle.Font.ColorIndex = 3 Then rot = rot + Zelle.Value
Next
[A12].Value = rot
[A13].Value = schwarz
Application.ScreenUpdating = True
[a1].Select
End Sub
Füge diesen Code in ein Standardmodul ein u. weise ihn einer Schaltfläche zu. Falls es noch Probleme geben sollte, melde dich oder sende mir eine Mail, dann kann ich dir eine Beispielsmappe senden.
MfG
Antwort 6 von ReneL
@Annan
donnerwetter, das ist ja toll.
wo finde ich denn ein Standart Modul? ist das ein Makro?
Meine Mail:
renas at freenet dot de
donnerwetter, das ist ja toll.
wo finde ich denn ein Standart Modul? ist das ein Makro?
Meine Mail:
renas at freenet dot de
Antwort 7 von Annan
Hallo Rene,
die Beispielmappe u. Erklärungen sind per Mail unterwegs.
Im übrigen kann ich dir wirklich die gelungene Homepage von Coros weiter empfehlen.
http://www.excelbeispiele.de/
Gerade als Anfänger findet man sehr gute Anleitungen u. zahlreiche, praxisnahe Beispiele zum Herunterladen.
MfG
die Beispielmappe u. Erklärungen sind per Mail unterwegs.
Im übrigen kann ich dir wirklich die gelungene Homepage von Coros weiter empfehlen.
http://www.excelbeispiele.de/
Gerade als Anfänger findet man sehr gute Anleitungen u. zahlreiche, praxisnahe Beispiele zum Herunterladen.
MfG