Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: Fabian_ am Juni 21, 2014, 15:38:12 Nachmittag
-
Hallo liebe Community,
zur besseren Verständnis ist hier eine vereinfachte Version meines Tabellenblatts:
(http://www11.pic-upload.de/21.06.14/gs56xscem1tp.png) (http://www.pic-upload.de/view-23628019/Unbenannt.png.html)
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
-
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 (http://www.excel-ist-se xy.de/sub-prozedur-einfuegen/) 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.
-
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.
-
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.