Supportnet / Forum / Tabellenkalkulation
Namen in Spalte A addieren
Frage
Hallo, Ihr fleißigen.
Ich habe eine Excel- Tabelle mit mtl. wechselnder Anzahl. In dieser Tabelle befinden sich alle Angaben des Kunden. Unter anderem auch, in Spalte J, der Nachname. Ich möchte nun in der Spalte J (von J209 bis J285) die Namen zusammen addieren, um am Monatsende zu wissen, wieviele Kunden ich erhalten habe und abrechnen muss. Einige Kunden sind mit der Hintergrundfarbe (rot) markiert, da ich diese Kunden nicht bezahlen muss. Ich benötige also nicht nur eine Formel, mit der ich die Namen addieren kann, sondern es sollen auch die Kunden abgezogen werden, die einen roten Hintergrund haben. Ich bin leider ein Excel Embrio und hoffe auf Eure Hilfe. Ich habe zwar schon das ganze Netz durchwühlt - aber vor lauter Formeln sehe ich nichts anderes mehr. Vielen Dank.
Antwort 1 von Saarbauer
Hallo,
das Zählen der Namen in Spalte A wird dir wahrscheinlich keine Probleme bereiten.
Mit der Farbe, könnest du hier eine Lösung finden
http://hajo-excel.de/
Gruß
Helmut
das Zählen der Namen in Spalte A wird dir wahrscheinlich keine Probleme bereiten.
Mit der Farbe, könnest du hier eine Lösung finden
http://hajo-excel.de/
Gruß
Helmut
Antwort 2 von M.O.
Hallo Heiko,
die Anzahl der Namen in Spalte J kannst du mit folgender Formel ermitteln:
=ANZAHL2(J209:J285)
Um die Kunden mit der roten Hintergrundfarbe zu zählen schau dir mal die Antwort 2 in diesem Thread an.
Gruß
M.O.
die Anzahl der Namen in Spalte J kannst du mit folgender Formel ermitteln:
=ANZAHL2(J209:J285)
Um die Kunden mit der roten Hintergrundfarbe zu zählen schau dir mal die Antwort 2 in diesem Thread an.
Gruß
M.O.
Antwort 3 von rainberg
Hallo Heiko,
wenn ich Dich richtig verstehe, funktioniert das.
Anbei eine Testdatei.
http://upload.npcfighter.de/files/36/7619/Namen_zaehlen.xls
Gruß
Rainer
wenn ich Dich richtig verstehe, funktioniert das.
Option Explicit
Private Sub CommandButton1_Click()
Dim rngC As Range, rngBer As Range, intRot As Integer
Set rngBer = Range("J209:J285")
For Each rngC In rngBer
If rngC.Interior.ColorIndex = 3 Then intRot = intRot + 1
Next
MsgBox WorksheetFunction.CountA(rngBer) - intRot
End Sub
Anbei eine Testdatei.
http://upload.npcfighter.de/files/36/7619/Namen_zaehlen.xls
Gruß
Rainer

