Collapse column

Autor Thema: Office 2010: Verschachtelte Summe Wenn Funktion (Frage)  (Gelesen 1838 mal)

Offline Fabian_

  • Newbie
  • *
  • Beiträge: 6
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Mittelmäßig
  • Version [Office] : Office 2010
Office 2010: Verschachtelte Summe Wenn Funktion (Frage)
« am: Juni 21, 2014, 15:38:12 Nachmittag »
Hallo liebe Community,

zur besseren Verständnis ist hier eine vereinfachte Version meines Tabellenblatts:



Mein Ziel:

In G3 (Summe X/Farbig) sollen alle X addiert werden, wenn eine der drei Farben auch wirklich farbig ist (also rot/blau/gelb). Sind zwei oder mehrere Farben "farbig", dann soll X auch NUR EINMAL addiert werden.

Hier im Beispiel also:
Summe X - Farbig: =1+4+5+6+7+8 = 31
Summe X - S/W:    =2+3+4+8 = 17


Ich hoffe Ihr könnt mir hierfür eine möglichst elegante Lösung zeigen :)


Vielen Dank schon mal im Voraus!

Fabian

Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden und Dein Anliegen in Auftrag geben.
>>> Schnell und einfach ein unverbindliches Angebot anfordern. Per E-Mail an anfrage@excel-inside.de oder per Online-Formular
<<<

!!! Wichtige Information
!!! Dieses Forum steht aus technischen Gründen ab dem 11. September 2019 nur noch im Lesemodus zur Verfügung.
Das NEUE Office-Fragen-Forum kannst du aber unter der gewohnten Domain https://office-fragen.de wie gewohnt nutzen.

- Wir freuen uns auf deinen Besuch im neuen Forum.

Offline gmg-cc

  • Hero Member
  • *****
  • Beiträge: 1.321
    • Profil anzeigen
    • Meine Webseite
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Gut
  • Version [Office] : Office 2016
Antw:Office 2010: Verschachtelte Summe Wenn Funktion (Frage)
« Antwort #1 am: Juni 22, 2014, 12:30:33 Nachmittag »
Moin,

da ich einige Zeit mit dem sinnlosen*) Eintippen der Zahlen in mein Excel verbringen musste, blieb mir nur noch Zeit für eine Makro-Lösung:

Option Explicit

Sub Farben()
   Dim Ze As Integer, Sp As Integer
   Dim x As Variant, AnzC As Integer, AnzS As Integer
   
   For Ze = 3 To 10
      For Sp = 2 To 4
         x = Cells(Ze, Sp)
         Select Case LCase(x)
         Case "rot", "blau", "gelb"
            AnzC = AnzC + Cells(Ze, 1).Value
            Exit For
         End Select
      Next Sp
   Next Ze
   For Ze = 3 To 10
      For Sp = 2 To 4
         x = Cells(Ze, Sp)
         If LCase(x) = "schwarz" Then AnzS = AnzS + Cells(Ze, 1).Value
      Next Sp
   Next Ze
   Range("G3") = AnzC
   Range("H3") = AnzS
End Sub

Wie du ein Makro in die Tabelle einfügst, kannst du hier erfahren. Wegen Automatik-Zensur des Boardsystems muss das Leerzeichen im Link bei "ist-se xy" gelöscht werden.

*) sinnlos = ohne Sinn, weil du ja schon die Datei hast und hier hättest einstellen können.
« Letzte Änderung: Juni 22, 2014, 19:43:02 Nachmittag von gmg-cc »
Gruß
Günther

Offline Fabian_

  • Newbie
  • *
  • Beiträge: 6
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Mittelmäßig
  • Version [Office] : Office 2010
Antw:Office 2010: Verschachtelte Summe Wenn Funktion (Frage)
« Antwort #2 am: Juni 22, 2014, 14:40:08 Nachmittag »
Vielen Dank für deine Lösung!

Daran werde ich das nächste mal denken, das Excel direkt auch mit hochzuladen :)

Habe mittlerweile auch noch eine Lösung/Workaround gefunden, die ohne Makros auskommt:

- Zuerst habe ich mir 3 Hilfsspalten neben D erstellt.
- taucht in B nun rot/blau/gelb auf, steht in der 1. Hilfsspalte nun "farbig" (=WENN(ODER(B3="rot";...);"farbig"))
- das selbe Vorgehen für Hilfsspalten 2 und 3

- danach habe ich noch eine 4. Hilfsspalte erstellt
- taucht in Hilfsspalte 1-3 nun mind. 1x "farbig" auf, wird die 4. Hilfspalte zu 1. Ansonsten wird sie 0

- Jetzt kann man "Summe farbig" einfach mit der Summewenn-Funktion ausrechnen und die Hilfsspalten ausblenden.


Offline gmg-cc

  • Hero Member
  • *****
  • Beiträge: 1.321
    • Profil anzeigen
    • Meine Webseite
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Gut
  • Version [Office] : Office 2016
Antw:Office 2010: Verschachtelte Summe Wenn Funktion (Frage)
« Antwort #3 am: Juni 22, 2014, 19:41:09 Nachmittag »
Nun ja,

wenn du Hilfsspalten akzeptierst, geht es noch etwas "schlanker" ...

Zugegeben, es geht auch komplett ohne Hilfsspalten, aber dann wird die Formel noch länger  :-\

[Edit:] Der Link obem war wegen des erforderlichen manuellen Eingriffs etwas "verhunzt", sorry.
« Letzte Änderung: Juni 22, 2014, 19:44:26 Nachmittag von gmg-cc »
Gruß
Günther

Wenn du dich noch intensiver mit Excel beschäftigen möchtest, dann empfiehlt sich ein Online-Kurs,
in dem du sehr viel über Excel erfährst und das gelernte umgehend in der Praxis anwenden kannst.