Zelle füllen wenn eine oder mehrere einen Wert ungleich Null haben
Hallo,
ich habe ein kleines Problem und komme nicht weiter.
Ich habe eine Zeile mit Überschriften. In den jeweiligen Spalten werden nun Zahlenwerte eingetragen. Es gibt viele Zeilen, also ein klassischer Datensatz.
z.B.:
A B C D E
1 Euro Dollar Pesos Rubel
2 12 12 0 34
3 23 423 443 0
4 22 234 34 0
5 22 444 34 0
Ich möchte nun, daß in E eine Zusammenfassung steht. Es soll aber nur das aufgeführt werden was auch einen Wert größer Null hat.
Also soll das so aussehen:
A B C D E
1 Euro Dollar Pesos Rubel
2 12 12 0 34 Euro:12
Dollar: 12
Rubel: 34
3 23 423 443 0 Euro: 23
Dollar: 423
Pesos: 443
.... und so weiter.
Ich hoffe ihr versteht was ich meine und könnt mir bei diesem Problem genauso helfen wie ihr (bzw. euer Archiv) es schon seit langem tun.
Antwort schreiben
Antwort 1 von ACCobra vom 11.10.2019, 16:51 Options
Sorry, die Formatierun war nach dem abschicken weg.
Ich möchte halt in Spalte E eine Auflistung aller Beträge ungleich Null. Und das muss dann in einer Zelle stehen. Kompliziert, ich weiß.
Antwort 2 von Saarbauer vom 11.10.2019, 16:57 Options
Hallo,
leider nicht ganz verständlich
Zitat:
Ich möchte halt in Spalte E eine Auflistung aller Beträge ungleich Null. Und das muss dann in einer Zelle stehen.
Gruß
Helmut
Antwort 3 von ACCobra vom 11.10.2019, 17:08 Options
Dachte ich's mir doch, daß das niemand kapiert ;o)
Also, in den Zellen A1 bis D1 stehen Überschriften.
Die Zellen A2 bis D2 sind mit Daten gefüllt.
In Zelle E2 sollen nun die Überschriften (aus Zeile 1) stehen und dahinter die Daten (aus Zeile 2). Aber auch nur dann wenn der Wert größer Null ist.
Ausgangstabelle:
__A______B_______C________D______
1_Euro___Dollar____Pesos____Rubel___
2___12______11______234_______4___
3__122_______0________0_______1
4__333______22________1______23___
Resultat:
__A______B_______C________D______E_______
1_Euro___Dollar____Pesos____Rubel___________
2___12______11______234_______4___________
__________________________________Euro: 12
__________________________________Dollar: 11
__________________________________Pesos: 234
__________________________________Rubel: 4
3__122_______0________0_______1___________
__________________________________Euro: 122
__________________________________Rubel: 1
4__333_______0________1______23___
__________________________________Euro: 333
__________________________________Pesos: 1
__________________________________Rubel: 23
Ich hoffe diese Formatierung ist verständlicher ;o)
Antwort 4 von Chandini vom 11.10.2019, 17:08 Options
Hallo
Also ob das ohnen einen kleinen Umweg geht, weiß ich nicht. Aber eine Lösungsmöglichkeit wäre mit Hilfszellen.
Du brauchst eine Hilfszelle für Euro, eine für Peso...
Da schreibst dann z.B. für Euro folgendes rein:
=WENN(A2>0;VERKETTEN("EURO: ";A2);"")
Wenn also der Eurowert größer Null ist, steht in der Hilfszelle EURO: (wert), wenn der Wert größer Null ist, steht nichts drin.
Das machst dann für alle vier Werte.
In die eigentliche Ergebniszelle schreibst dann folgendes:
=VERKETTEN(E2;F2;G2;H2)
Dann wird alles zusammen in eine Zelle geschrieben. Wenn in einer der Hilfszellen nichts drinsteht, weil der Wert zu klein war, dann wird beim Verketten einfach nichts reingeschrieben.
Vielleicht hilft dir das erstmal weiter.
Viele Grüße
Ines
Antwort 5 von Chandini vom 11.10.2019, 17:10 Options
Nochmal Hallo!
Wenn du das Ergebnis eh untereinander haben willst, dann brauchst du einfach das, was ich für die Hilfszellen vorgesehen habe...
Dann reicht also
=WENN(A2>0;VERKETTEN("EURO: ";A2);"")
Hab die nachträgliche Formatierung zu spät gesehen ;-)
Viele Grüße
Ines
Antwort 6 von DukeNT vom 11.10.2019, 17:13 Options
Hi ACCobra,
per VBA kannst du das wie folgt machen:
ALT+F11 - Einfügen - Modul
Kopiere diesen code in das neue fenster und starte das Makro.
Sub zusammenfassen()
For a = 2 To Sheets(1).Range("A65000").End(xlUp)
If Cells(a, 1) <> 0 Then wert = Cells(1, 1) & ":" & Cells(a, 1) & ","
If Cells(a, 2) <> 0 Then wert = wert & Cells(1, 2) & ":" & Cells(a, 2) & ","
If Cells(a, 3) <> 0 Then wert = wert & Cells(1, 3) & ":" & Cells(a, 3) & ","
If Cells(a, 4) <> 0 Then wert = wert & Cells(1, 4) & ":" & Cells(a, 4) & ","
Cells(a, 5).Value = wert
wert = ""
Next
End Sub
Gruß Niels
Antwort 7 von ACCobra vom 11.10.2019, 17:16 Options
Hi Ines,
das war super! Vielen Dank. Genau das habe ich gesucht. Jetzt muß ich nur noch einen Zeilenumbruch hinbekommen. Im Moment steht halt alles hintereinander, untereinander wäre schon schick.
Danke!
Antwort 8 von Chandini vom 11.10.2019, 17:29 Options
Hallo
Probier mal
=VERKETTEN(E3;ZEICHEN(10);F3;ZEICHEN(10);G3;ZEICHEN(10);H3)
Dann Rechtsklick auf die Zelle -> Zelle formatieren -> Register "Ausrichtung" und Haken bei Zeilenumbruch setzen.
Zeichen(10) macht den Zeilenumbruch rein.
Viele Grüße
Ines
Antwort 9 von ACCObra vom 11.10.2019, 17:44 Options
Perfekt! Ich Danke vielmals!