Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1256to1260
1256to1260
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Werte innerhalb einer Zelle addieren

Forumthread: Bestimmte Werte innerhalb einer Zelle addieren

Bestimmte Werte innerhalb einer Zelle addieren
Schmitz
Hallo zusammen,
ich habe eine Kundenliste mit mehreren Hundert Kundendaten. Wenn ich einem Kunde etwas geliefert habe, schreibe ich das in eine Zelle, für jede Lieferung benutze ich eine neue Zeile innerhalb (!) der gleichen Zelle. Ich trage meine Angaben im folgenden Schema ein: "Datum-Menge-Preis"
Beispiel einer Zelle:
01.01.2012-2304-55,90
16.02.2012-350-112,90
08.03.2012-4200-78,50
Jetzt möchte ich etwas Statistik betreiben und wissen,
a) wie oft der Kunde beliefert wurde
b) wie große die Menge insgesamt war
Zu a) habe ich eine Lösung (Formel) gefunden, wobei "A1" die Zelle ist:
=1+LÄNGE(A1)-LÄNGE(WECHSELN(A1;ZEICHEN(10);""))
Zu b) habe ich noch keine Idee. Mein Problem ist. dass die Mengenangabe ein-, zwei-, drei-, vier- und mehrstellig seinen kann. Also kann ich keine Formel nutzten, die nur von rechts oder links die Zeichen zählt und einen gewissen Teil der Zelle addiert. Ausserdem weiß ich nicht, wie ich in einer Formel den Zeilensprung innerhalb der Zelle berücksichtigen soll.
Hat jemand von Euch eine Idee?
Danke im Vorras & Gruß
Christian Schmitz
Anzeige
AW: Bestimmte Werte innerhalb einer Zelle addieren
18.04.2012 11:46:17
Sheldon
Hallo Christian,
das wird ohne VBA wohl kaum lösbar sein. Deine Lösung wird aber ohnehin irgendwann an ihre Grenzen stoßen, weil in einer einzelnen Zelle m. W. nicht beliebig viele Zeichen gespeichert werden können. Um das ganze auswertbar und auch flexibler zu gestalten, würde ich dir statt dessen empfehlen, ein Kunden-Stammblatt anzulegen, wo also Kundennummer steht und wo du ggf. auch Auswertungen wie Gesamt-Liefermenge anfertigen kannst. Und ein separates Tabellenblatt, auf dem du Kundennummer, Lieferdatum, Menge und Preis in jeweils eigenen Zellen zeilenweise speicherst. Das macht ja auch die Pflege einfacher - und du kannst nicht versehentlich eine Zelle überschreiben oder löschen, womit dann gleich alle Lieferungen des Kunden verloren gingen!
Gruß
Sheldon
Anzeige
?warum machst Du das so ? oT-Gruß
18.04.2012 11:48:36
robert
AW: ?warum machst Du das so ? oT-Gruß
19.04.2012 07:58:38
Schmitz
Hallo Robert,
ich trage alle Lieferungen des Jahres pro Kunde in eine Zelle ein, da ich daneben die letzten zehn Jahre auf die gleiche Methode vertraut habe, also pro Jahr eine Zelle mit Datum-Menge-Preis. Das hat den Vorteil, dass wenn ich einen Kunden aufrufe, die letzten 10 Jahre eigentlich sehr gut überblicken kann und sehr leicht mit dem Autofilter herausfinden kann, wenn ein Kunde mal ein Jahr keine Ware bekommen hat (Zelle ist leer).
Das System hat sich eigentlich in unserem Falle bewert und ich wollte nur zusätzlich eine Statistik einfügen. Wie gesagt, die Anzahl der Lieferungen pro Kunde pro Jahr kann ich bereits anzeigen lassen, nur noch nicht die Liefermenge...
Gruß
Christian
Anzeige
schick doch eine Beispieldatei-Gruß
19.04.2012 08:19:47
robert
eigenwillige Erfassung....
19.04.2012 16:18:52
robert
Hi,
muss eine kleine ;-) Firma sein...
sind die Mengen immer 4 stellig?
Gruß
robert
Anzeige
AW: eigenwillige Erfassung....
20.04.2012 07:24:19
Schmitz
Hallo Robert,
ganz so klein sind wir nicht... ;-)
Die Mengen könne 1-5 Stellig sein...
Gruß
Christian
Probier mal das...
20.04.2012 07:52:53
robert
https://www.herber.de/bbs/user/79880.xls
Hi,
das ist ein Versuch, der auf Deine Beispieldatei abgestimmt ist.
Gruß
robert
Anzeige
2.Version v.Reinhard ist besser !! Gruß
20.04.2012 08:26:47
robert
Zusatzfrage...
19.04.2012 17:11:20
robert
Hi,
wieviele Umsätze kann ein Kunde pro Jahr haben?
Gruß
robert
Stimme Robert zu! So etwas macht ggf ...
19.04.2012 00:56:27
Luc:-?
…ein wdProfi, Christian,
aber ein xlProfi…?
Gruß Luc :-?
Anzeige
AW: Bestimmte Werte innerhalb einer Zelle addieren
20.04.2012 03:18:44
Reinhard
Hallo Christian,
Formel in Q3: =menge(O3)
in ein Standardmodul, Modul1 o.ä.: 
Option Explicit
Function Menge(Zelle) As Single
Dim Teil, N As Integer
If InStr(Zelle.Value, "-") = 0 Then Exit Function
Teil = Split(Zelle.Value, Chr(10))
For N = LBound(Teil) To UBound(Teil)
If Teil(N)  "" Then Menge = Menge + CSng(Split(Teil(N), "-")(2))
Next N
End Function

Gruß
Reinhard
Anzeige
Das ist aber der Preis, den Du addierst-oT
20.04.2012 07:46:58
robert
und so ist es die Menge-Super Reinhard ;-)
20.04.2012 08:19:43
robert
Option Explicit

Function Menge(Zelle) As Single
Dim Teil, N As Integer
If InStr(Zelle.Value, "-") = 0 Then Exit Function
Teil = Split(Zelle.Value, Chr(10))
For N = LBound(Teil) To UBound(Teil)
If Teil(N)  "" Then Menge = Menge + CSng(Split(Teil(N), "-")(1))
Next N
End Function
Gruß
robert
Anzeige
AW: und so ist es die Menge-Super Reinhard ;-)
20.04.2012 11:35:32
Schmitz
Hallo,
das funktioniert super!
Herzlichen Dank...
Eine kleine Frage habe ich aber noch:
Wie kann ich die Formel in P3 bzw. Q3 so abändern, das Zelle P12 berücksichtigt wird. Das müsste doch eigentlich mit einem VERWEIS gehen, nur habe ich gerade anscheinend ein Brett vor dem Kopf und komme nicht auf die Lösung...
siehe Beispieldatei:
https://www.herber.de/bbs/user/79882.xlsx
Gruß
Christian
Anzeige
AW: und so ist es die Menge-Super Reinhard ;-)
20.04.2012 15:04:28
Reinhard
Hallo Christian,
gab es in P9 zwei Lieferungen wie deine Formel sagt? Da ist doch eher ein Chr(10) zuviel.
Daß mit der Statistik habe ich nihct verstanden. In Spalte O stehen nur Datümer aus 2012,
in P12 steht das Jahr 2012.
Wie soll das in P/Q3 berücksichtigt werden?
Hier ist anderer Code für die Mengenberechnung: 
Function Menge(Zelle) As Single
Dim Teil, N As Integer
Teil = Split(Zelle.Value, "-")
For N = 1 To UBound(Teil) Step 2
Menge = Menge + CSng(Teil(N))
Next N
End Function

Gruß
Reinhard
Anzeige
AW: und so ist es die Menge-Super Reinhard ;-)
20.04.2012 15:49:43
Schmitz
Hallo Reinhard,
also zuerst zu dem Problem "P9":
Da hast du recht. Meine Formel für die "Anzahl Lieferung" zählt nur die "Enter-Eingaben", nicht, ob es wirklich zwei ausgefüllte Zeilen sind. Das ist für mich aber nicht weiter schlimm...
Zu deiner zweiten Frage:
Also, ich habe ja für jedes Jahr (2006-2012) die Lieferungen eingetragen. Für meine Statistik hätte ich gerne die Möglichkeit im Feld P12 das Jahr einzugeben, so dass sich die Spalten P und Q dementsprechend ändern.
Also, im Moment bekomme ich meine Statistik ja nur für das Jahr 2012. Wenn ich jetzt z. B. in P12 das Jahr 2010 eingebe, möchte ich, dass sich die Werte in den Spalten P & Q demenstprechend für das Jahr 2010 ändern.
Ich hoffe man (bzw. du) konnte das jetzt verstehen ;-)
Gruß
Christian
Anzeige
AW: und so ist es die Menge-Super Reinhard ;-)
20.04.2012 16:16:48
Reinhard
Hallo Christian,
P3: =Anz(ADRESSE(ZEILE();VERGLEICH($P$12;$A$1:$O$1;0)))
Q3: =Menge(ADRESSE(ZEILE();VERGLEICH($P$12;$A$1:$O$1;0)))
die neuen Codes:
Function Menge(ByVal strZelle As String) As Single
Dim Teil, N As Integer
Teil = Split(Range(strZelle).Value, "-")
For N = 1 To UBound(Teil) Step 2
Menge = Menge + CSng(Teil(N))
Next N
End Function


Function Anz(ByVal strZelle As String) As Integer
Anz = (Len(Range(strZelle)) - Len(Replace(Range(strZelle), "-", ""))) / 2
End Function

Gruß
Reinhard
Anzeige
AW: und so ist es die Menge-Super Reinhard ;-)
20.04.2012 16:48:06
Schmitz
Es funktioniert!
Vielen Dank für die Hilfe!!!
Schönes Wochenende & Gruß
Christian

Forumthreads zu verwandten Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Zwei Dinge in einer Zelle
Sabine

Hallo,
ich möchte ein Problem mit Excel Formeln und ohne VBA lösen.
Es gibt drei Spalten: Datum1, Zweck, Datum 2
Wenn in Zweck in einer Spalte das Wort "Show" eingetragen wird, soll in Datum 2 in der entsprechenden Zeile stehen "Bitte nennen Sie ein Verwendungsdatum". Das kriege ich...
29.08.2008 15:25:00
Thread-ID: 1005860
2 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Tasten während der Eingabe in einer Zelle abfragen
Arthur

Hallo.
Wie kann man in Excel auf die Eingabe in einer Zelle schon beim Tastendruck reagieren?
Beispiel: Schon während der Eingabe von Werten soll reagiert werden. Bspw. ist eine fünfstellige Bestelnummer einzutragen. Nachdem fünf Ziffern eingetragen sind soll automatisch in die nächste...
22.10.2008 11:44:52
Thread-ID: 1018286
4 Beiträge
zahl + text in einer Zelle?
dieter

Hallo Forum,
gibt es wohl ein Möglichkeit in einer Zelle Zahl und text zu haben?
Etwa so: in A1 steht eine zahl; in A3 soll dann der Inhalt aus A1 und der text stehen,z.B. EUR.
(Aus platzgründen kann ich keine neue zelle für den text nehmen)
Danke für Eure Tips
23.10.2008 14:46:00
Thread-ID: 1018660
7 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Bestimmte Werte innerhalb einer Zelle addieren

Schritt-für-Schritt-Anleitung

Um bestimmte Werte in einer Zelle, die mehrere Informationen mit Zeilenumbrüchen enthält, zu addieren, kannst Du die folgende VBA-Funktion verwenden. Diese Funktion ermöglicht es Dir, die Mengenangaben zu extrahieren und zu summieren.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf "Einfügen" und wähle "Modul", um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Option Explicit
Function Menge(Zelle As Range) As Single
   Dim Teil, N As Integer
   Teil = Split(Zelle.Value, Chr(10))
   For N = LBound(Teil) To UBound(Teil)
       If Teil(N) <> "" Then Menge = Menge + CSng(Split(Teil(N), "-")(1))
   Next N
End Function

  4. Schließe den VBA-Editor und gehe zurück zu Deinem Excel-Blatt.

  5. Verwende die Funktion in einer Zelle, z.B. =Menge(A1), um die Menge aus der Zelle A1 zu addieren.

Häufige Fehler und Lösungen

  • Fehler: "Typenübereinstimmung" bei der Verwendung der Funktion.

    • Lösung: Stelle sicher, dass die Zelle, die Du übergibst, tatsächlich die erwarteten Daten enthält (z.B. "Datum-Menge-Preis" pro Zeile).

  • Fehler: Die Funktion zählt nicht alle Zeilen.

    • Lösung: Überprüfe, ob die Zeilenumbrüche korrekt sind bzw. ob die Daten in der Zelle richtig formatiert sind.

Alternative Methoden

Falls Du keine VBA-Programmierung verwenden möchtest, kannst Du auch die TEXT-FUNKTIONEN in Excel nutzen:

  1. Teile die Inhalte der Zelle in einzelne Teile auf, indem Du die Funktion =TEXTSPLIT(A1;CHAR(10)) (in neueren Excel-Versionen verfügbar) verwendest.
  2. Nutze dann eine Kombination von SUMMEWENN oder SUMME zusammen mit INDEX und VERGLEICH, um die entsprechenden Werte zu addieren.

Beispiel:

=SUMME(INDEX(TEXTSPLIT(A1;CHAR(10));;2))

Praktische Beispiele

Angenommen, Du hast in Zelle A1 die folgenden Werte:

01.01.2012-2304-55,90
16.02.2012-350-112,90
08.03.2012-4200-78,50

Um die gesamte Menge zu addieren, kannst Du die Funktion Menge(A1) verwenden, und die Ausgabe zeigt die Summe aller Mengen an.

Tipps für Profis

  • Wenn Du häufig mit solchen Daten arbeitest, erstelle eine benutzerdefinierte Funktion, die Du immer wieder verwenden kannst.
  • Berücksichtige, dass Du die Funktion auch anpassen kannst, um zusätzliche Statistiken zu generieren, wie z.B. den Durchschnitt der Lieferungen.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Zahlen in einer Zelle addieren?
Verwende die oben beschriebene VBA-Funktion oder die TEXT-FUNKTIONEN in Excel, um die Zahlen zu extrahieren und zu summieren.

2. Was kann ich tun, wenn ich keine VBA-Funktionen verwenden kann?
Nutze die integrierten Excel-Funktionen, um die Daten zu zerlegen und mithilfe von SUMME oder SUMMEWENN die gewünschten Werte zu addieren.

3. Wie viele Werte kann ich in einer Zelle speichern?
Die maximale Anzahl an Zeichen in einer Zelle beträgt 32.767, was in der Regel ausreicht, um mehrere Werte zu verwalten.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige