Office: Anwendungsproblem der RUNDEN-Funktion

Hallo Forum!

Ich habe ein kleines Anwendungsproblem bezüglich Berechnung gerundeter Werte.

Beispiel: Die Zahl 18 wird auf 12 Monate verteilt; der jeweilige Wert ist 1,5.
Wenn ich nun die RUNDEN-Funktion nutze ergibt die Addition aller Werte 24, bzw. 12. In Summe darf aber nicht mehr als der Ursprungswert rauskommen.
Hat dazu jemand eine Lösung?

Gruß, L3v3l

Edit: Wo die monatlichen Werte angepasst werden ist eigentlich egal, am besten die hintere Hälfte, Also Jan-Jun Wert: 2, Aug-Dez: Wert: 1

 

Hallo,

habe ich das richtig verstanden?

	A	B	C
1	Gesamt	18
2
3	Januar	1,5	1,5
4	Februar	1,5	1,5
5	März	1,5	1,5
6	April	1,5	1,5
7	Mai	1,5	1,5
8	Juni	1,5	1,5
9	Juli	1,5	1,5
10	August	1,5	1,5
11	September	1,5	1,5
12	Oktober	1,5	1,5
13	November	1,5	1,5
14	Dezember	1,5	1,5
15		18	18

Zelle	Formel
B14	=$B$1/12
C14	=RUNDEN($B$1/12;2)
B15	=SUMME(B3:B14)
C15	=SUMME(C3:C14)

Die Formeln aus der Zeile 14 stehen so auch in den Zeile 3 bis 13.

Und wenn du hier andere Werte erhälst wie lauten denn deine Formeln und wie ist die Tabelle aufgebaut?

 

Ich schick mal ein Bsp. mit ;)

 

Hallo,

ich kann die Datei nicht laden, die scheint einen Schuss zu haben.

 

Mmh, ist von hier irgendwie nicht möglich...
Ich versuchs mal so:

Ausgangswert 18 (Zelle B1)

in den Monatszellen steht "RUNDEN($B$1/12;0)"

Endwert (Summe der Monate) ist dann 24.

Insgesamt darf aber nicht mehr als der Ausgangswert rauskommen, also 18.

Jetzt suche ich eine Möglichkeit die Werte (möglichst automatisch) unterjährig anzupassen. Also z.B. im Jan 1, im Feb 2, im Mrz 1 etc.

Es soll aber NICHT mit den richtigen (nicht gerundeten) Werten gerechnet werden. (Ja ich weiß, hört sich blöd an, ist aber so ;) )

Hoffe das war irgendwie verständlich.... :roll:

Gruß, L3v3l

 

Hallo,

jetzt ist mir zumindest klar warum du auf das Ergebnis 24 kommst.

Hilft es dir weiter wenn du die folgende Formel nutzt:

=$B$1/12

und die Zellen dann als Zahl mit 0 Dezimalstellen formatierst?

Es steht dann überall (auf das bisherige Beispiel bezogen) 2 in der Zelle aber die Summe ergibt wieder 18.

 

Hehe, gute Idee :) Leider nicht möglich.
Vielleicht mal zum hintergrund:
Es geht um Konsolidierung von Jahresplanungen. Das Ganze mit über 500 Zeilen pro Monat für 30 Gesellschaften. Die "Bearbeitungsvögel" der Gesellschaften setzen entgegen der Anweisung einfach den Jahresplanwert durch 12 in die Zellen (dadurch die ,5 - Werte), anstatt die Werte direkt anzupassen. Die daraus resultierenden Ergebnisse werden aber an diversen Stellen verprobt, sodaß hier sofort Differenzen angezeigt werden und händisch angepasst werden müssen.
Das verursacht verständlicherweise eine ätzende Arbeit, die ich ausbaden darf.
Aus diesem Grund suche ich irgendeine Bearbeitungsformel, Workaround, wasauchimmer um aus der Nummer glimpflicher herauszukommen.
Hier nochmal:

Planwert: Mon,Mon,Mon,... :Summe
18: 2,2,2,2,2,2,2,2,2,2,2,2 :24 Schlecht
18: 2,2,2,2,2,2,2,2,2,2,2,2 :18 auch Schlecht
18: 1,2,1,2,1,2,1,2,1,2,1,2 :18 Das wäre OK!
18: 1,1,1,1,1,1,2,2,2,2,2,2 :18 Wäre auch noch OK!
18: 2,2,2,2,2,2,1,1,1,1,1,1 :18 auch OK!
18: 1,1,1,1,1,1,1,1,1,1,1,7 :18 zur Not auch OK!

Hat dafür jemand eine Idee?

Gruß, L3v3l

 

Hallo L3v3l0rd,

mein Vorschlag in Gestalt folgender Array-Formel:

Code:

Option Explicit

Public Function Verteilen(Vorgabe As Double, Optional Anz% = 12, Optional Tr As Boolean = True) As Variant
  Dim Vorg As Double, Durchsch As Double
  Dim Werte() As Variant, I%, ZwiSu As Double
  Durchsch = Vorgabe# / Anz%
  ReDim Werte(1 To Anz%): ZwiSu# = 0#
  For I% = 1 To Anz%
    Werte(I%) = Round(I% * Durchsch# - ZwiSu#, 0)
    ZwiSu# = ZwiSu# + Werte(I%)
  Next I%
  If Tr Then
    Verteilen = WorksheetFunction.Transpose(Werte)
  Else
    Verteilen = Werte
  End If
End Function

Angenommen der zu verteilende Wert (=18) stehe in Zelle B2; dann können mit meiner Formel 2 Varianten gelöst werden:
a) die Variante: Zeilenbereich:
Den Zellbereich C2:N2 markieren (=12 Zellen); in die Eingabezeile die Formel '=Verteilen(B2;;FALSCH)' eingeben, die Tasten Strg+Umschalt+Eingabe drücken, und der Wert aus Zelle B2 ist aufgeteilt;
b) die Variante: Spaltenbereich:
Den Zellbereich B3:B14 markieren (=12 Zellen); in die Eingabezeile die Formel '=Verteilen(B2)' eingeben, wieder die Tasten Strg+Umschalt+Eingabe drücken, und der Wert aus Zelle B2 ist aufgeteilt.
c) Syntax der Formel:
=Verteilen(AufteilWert; Anzahl; TranspJN)
Parameter: AufteilWert ist der aufzuteilende Betrag
Parameter: Anzahl (optional, default=12) der aufzuteilenden Zellen
Parameter: TranspJN (optional, Default=WAHR) WAHR falls es sich um einen Spaltenbereich handelt, FALSCH wenn es ein Zeilenbereich ist.
Die Resultate in den Aufteilzellen sind jeweils ganzzahlig. Falls AufteilWert auch ganzzahlig ist, wird dieser AufteilWert vollständig aufgeteilt.
d) Den VBA-Code am besten in einem VBA-Codemodul speichern.

Gruß Exl121150

 

Boah! :shock:

Danke für deine Mühen! :-D

Werde mal versuchen das bei uns reinzuhämmern...

Viele Grüße, L3v3l