Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Betrag aufteilen....?

Betrag aufteilen....?
12.04.2005 13:26:17
tobias
Hallo,
erst einmal entschuldigung für diesen blöden Titel...mir fiel aber nix besseres ein.
Ich sitze hier vor einem riesen problem, dass ich wohl ohne eure hilfe nicht lösen kann. dabei bräuchte ich aber so schnell wie möglich eine lösung...zeit ist geld...und bei diesem problem im wahrsten sinne des wortes.
also,
ich muss in einer datei beträge eingeben, z.b. in der spalte a:
168,75 €
Nun sollte mir Excel oder besser das makro anzeigen, wieviele 500-€-Scheine, 200-€-Scheine, 100-€-Scheine etc. bis zum 1-Cent-Stück ich für den betrag benötige.
wie kann man das hinbekommen?
gruß
tobias
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
www.excelformeln.de oT
12.04.2005 13:32:05
Herbert
oT
AW: Geldstückelung!
12.04.2005 13:46:22
Luc
Hallo Tobias,
dazu benötigst du entweder eine select-case- oder if...then...else-Konstruktion zur Ermittlung der Grenzbereiche (&gt500,&gt200,&gt100,&gt50,&gt20,&gt10) und schließlich darunter eine ganzzahlige Division durch den Vergleichswert (...) und eine Modulo-Rechnung (Rest-)Betrag mod Vergleichswert für das was übrigbleibt. Dieser Rest muss dann alles nochmal durchlaufen und die nächste Stückelungsgröße wird ermittelt, solange bis alles aufgeteilt ist. Die in jedem Zyklus ermittelten Werte müssen "gemerkt" und entweder sofort als Einzelwerte oder zum Schluss alle zusammen als String ausgegeben wdn. U.U. lässt sich auch ein ganzer Bereich füllen - je nach Organisation der sub bzw. function, die zu programmieren ist. Wenn dir das zu aufwendig ist, empfehle ich die Archivrecherche unter dem o.g. Suchbegriff. Da gibt es bestimmt schon was.
Gruß Luc :-?
Anzeige
AW: Betrag aufteilen....?
12.04.2005 13:52:52
walter
HALLO TOBIAS,
Hier eine Form der Geldstücklung
Gruss Walter
AW: Betrag aufteilen....?
12.04.2005 14:12:15
walter
Hallo noch einmal ich,
Als ich diese Datei geschrieben habe, trat ein Problem ab der Zeile 79 oder etwas später auf, Excel rechnete nicht mehr richtig.
Lösung:
Extras - Optionen - Berechnen - Genauigkeit wie angezeigt mit Häkchen versehen.
Gruß Walter
Anzeige
AW: Betrag aufteilen....?
12.04.2005 14:13:41
UweD
Hallo
mit hilfe der www.excelformeln.de gehts so...
https://www.herber.de/bbs/user/21049.xls
Randbemerkung: nimm von jedem Schein, Münze ein Stück... dann hast du eine schöne Summe
888,88 EUR
Gruß UweD
AW: Betrag aufteilen....?
12.04.2005 14:15:35
Martin
Hallo Tobias,
in A1:A15 gibst Du absteigend die Stückelung ein (500, 200, ..., 0,02, 0,01), in C1 den Betrag. Folgendes Makro schreibt die Ergebnisse in B1:B15:

Sub Stueckelung()
Dim i As Long
Dim arr(15, 2)
Betrag = Range("C1")
For i = 1 To 15
arr(i, 1) = Cells(i, 1)
arr(i, 2) = Int(Betrag / arr(i, 1))
Betrag = Round(Betrag - arr(i, 2) * arr(i, 1), 5)
Cells(i, 2) = arr(i, 2)
Next i
End Sub

Gruß
Martin Beck
Anzeige
Formellösung
12.04.2005 14:16:53
IngoG
Hallo Tobias,
hab mal hier aus dem Forum eine Formellösung kopiert(weiss leider nicht mehr von wem),...
https://www.herber.de/bbs/user/21050.xls
ich fand damals die Lösung sehr elegant.
gruß Ingo
PS eine Rückmeldung wäre nett...
Anzeige
AW: Betrag aufteilen....?
12.04.2005 16:00:15
tobias
Danke...ihr habt mir alle mit euren Lösungsvorschlägen geholfen.
Ein besonderes Dank an walter...deine datei ist spitze.
tobias
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Betrag aufteilen mit Excel: So gelingt die Geldstückelung


Schritt-für-Schritt-Anleitung

Um Beträge in Scheine und Münzen aufzuteilen, kannst Du die folgende Schritt-für-Schritt-Anleitung nutzen:

  1. Vorbereitung der Excel-Tabelle:

    • Öffne Excel und erstelle ein neues Arbeitsblatt.
    • In Spalte A gib die Stückelungen ein: 500, 200, 100, 50, 20, 10, 5, 2, 1 Cent.
    • In Zelle C1 gib den Betrag ein, den Du aufteilen möchtest, z.B. 168,75 €.
  2. VBA-Makro erstellen:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Füge ein neues Modul hinzu (Einfügen > Modul) und kopiere den folgenden Code:
    Sub Stueckelung()
       Dim i As Long
       Dim arr(15, 2)
       Dim Betrag As Double
       Betrag = Range("C1").Value
       For i = 1 To 15
           arr(i, 1) = Cells(i, 1).Value
           arr(i, 2) = Int(Betrag / arr(i, 1))
           Betrag = Round(Betrag - arr(i, 2) * arr(i, 1), 2)
           Cells(i, 2).Value = arr(i, 2)
       Next i
    End Sub
  3. Makro ausführen:

    • Schließe den VBA-Editor und kehre zu Excel zurück.
    • Führe das Makro aus, indem Du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst. Die Ergebnisse werden automatisch in Spalte B angezeigt.

Häufige Fehler und Lösungen

  • Excel rechnet nicht richtig:

    • Stelle sicher, dass Du die Option „Genauigkeit wie angezeigt“ aktivierst: Extras > Optionen > Berechnen.
  • Falsche Werte in den Zellen:

    • Überprüfe, ob die Stückelungen in Spalte A korrekt eingegeben wurden und keine Leerzeichen oder falsche Formate enthalten sind.

Alternative Methoden

Falls Du kein Makro verwenden möchtest, kannst Du auch eine Formel nutzen. Gib in Zelle B1 folgende Formel ein und ziehe sie nach unten:

=INT($C$1/A1)

Diese Formel berechnet automatisch, wie viele Scheine oder Münzen Du für den eingegebenen Betrag benötigst.


Praktische Beispiele

Angenommen, Du möchtest 888,88 € aufteilen:

  1. Gib in Spalte A die folgenden Werte ein:

    • 500
    • 200
    • 100
    • 50
    • 20
    • 10
    • 5
    • 2
    • 1
  2. Gib in C1 den Betrag 888,88 € ein und führe das Makro aus. Du erhältst dann die Anzahl der benötigten Scheine und Münzen in Spalte B.


Tipps für Profis

  • Stückelung anpassen: Du kannst die Stückelungen in Spalte A beliebig anpassen. Füge neue Werte hinzu, um auch andere Währungen oder Beträge zu berücksichtigen.
  • Erweiterung durch VBA: Nutze zusätzliche VBA-Funktionen, um die Ausgabe zu formatieren oder die Ergebnisse in einem Diagramm darzustellen.

FAQ: Häufige Fragen

1. Wie kann ich die Stückelung aufteilen, wenn ich keine VBA-Kenntnisse habe?
Du kannst die Formel =INT($C$1/A1) verwenden, um die Anzahl der benötigten Scheine und Münzen ohne Makro zu berechnen.

2. Gibt es eine Möglichkeit, die 20 Cent-Münzen wert Tabelle automatisch zu erstellen?
Ja, Du kannst eine ähnliche Methode verwenden, um eine Tabelle für jede Münze zu erstellen, indem Du die Werte in Spalte A anpasst und die Formel anwendest.

3. Welche Excel-Version benötige ich für die VBA-Funktion?
Die VBA-Funktion funktioniert in den meisten modernen Excel-Versionen (Excel 2010 und neuer).

4. Wie kann ich die Ausgabe in einer separaten Tabelle darstellen?
Du kannst die Ergebnisse einfach in eine neue Tabelle kopieren oder das Makro so anpassen, dass die Ausgabe direkt dorthin geschrieben wird.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige