Office: Runden

Hi Edgar,
dein Code hat mich im ersten Moment etwas gefoppt: Nach einer Änderung (außerhalb von S5:S18) lief ...Change() nicht mehr.

Du schaltest Application.EnableEvents auf False.
Danach prüfst du auf Target.Count und Intersect(Target, rng) und gehst dabei evtl. auf Exit Sub.
Application.EnableEvents = True kommt nicht mehr dran - die Events bleiben ausgeschaltet.

Ein weiterer Bedenk: Du setzt die VBA-Fkt. Round ein. Die arbeitet anders als (Excel-)Application.Round - schau mal in die VBA-Hilfe zu Round.
Das mag schon mal so gewollt sein, sollte aber auch deutlich gemacht werden.

In meinem Code hatte ich eingebaut, dass am Ende der größte Betrag die mit der Rundung meist auftretende Differenz trägt.
So habe ich Wolfs Wunsch verstanden.
Hier meine Ergebnisse:

	E	F	S
3	Erichs Code		Quelldaten
4
5	350,260		350,266
6	100,000		100,000
7	3,760		3,750
8	19,480		19,483
9	8,960		8,954
10	3,660		3,664
11	4,960		4,969
12	6,760		6,752
13	1,880		1,883
14	0,180		0,180
15	0,100		0,100
16
17
18
19	500,000		500,001

Zelle	Formel
E19	=SUMME(E5:E18)
S19	=SUMME(S5:S18)

Der Unterschied zu deinen Ergebnissen:
In E5 steht statt 350,3 nun 350,26, damit E19 nicht 500,04, sondern glatt 500 ist.

 

Hallo,

also jetzt hab ich mal so einiges an Problemen bemerkt. Also ich würde gerne die Tabelle besser darstellen, aber das sind zum Teil Firma internes wo ich nicht grad in das Netz stellen kann. Darum tue ich mir auch schwer euch das richtig zu erklären.

Aber ich Versuche noch mal *wink.gif*

Also in der in der Tabelle in trägt man in S1 die Ansatzgrösse ein z.B. 100 kg

Dann werden die Werte in S5 bis S18 eingetragen und wie Ihr in der Tabelle sehen könnt kommt da nicht genau 100 heraus weil ich es mal übertrieben hab mit den Werten das man es auch besser verstehen kann was das Programm macht.

Es rechnet mir jetzt die 533,450 kg herunter auf die gewünschte Ansatzgrösse 100 kg

Mit der Formel S9/S19*S1/100*P9 So wird aus 25 kg dann 4,686kg usw.
Die Formel steht in E9

Dort wo die Prozent steht kann man noch eingreifen wenn man mehr oder weniger in seinem Rezept haben will.

Also wichtig ist das die Formeln in der E Spalte bestand haben !!!!!

Weil sonst kann das Programm von mir nicht richtig rechen.

Hoffe mal das es jetzt einwenig klarer wird und es nicht nur um das Runden der Zahlen geht *wink.gif*

Danke mal !

Gruss 'Wolf38

 

\@Erich,

danke, ist mir heute schon das zweite Mal passiert!

@wolf,

die Verwirrung wird größer, jetzt hast Du Formeln in Deiner Tabelle. Kann ich auch:

Tabelle1

	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T
4	Start Rezept:		Korr.1	Korr. 2	Korr. 3	Korr. 4	Korr.5	Korr. 6	Korr. 7	Korr. 8	Total :	% +/-	Vorgänger Rezept:
5	30,020	kg													430,000	kg
6	30,000	kg	Fixwerte												30,000	kg
7	30,000	kg	Fixwerte												30,000	kg
8												Prozent
9	4,680	kg										100			25,000	kg
10	1,260	kg										100			6,765	kg
11	0,580	kg										100			3,080	kg
12	0,780	kg										100			4,165	kg
13	0,100	kg										100			0,575	kg
14	0,300	kg										100			1,585	kg
15	0,180	kg	Fixwerte												0,180	kg
16	0,100	kg	Fixwerte												0,100	kg
17		kg														kg
18	2,000	kg	Fixwerte												2,000	kg
19	100,000	kg													533,450	kg

Zelle	Formel
E9	=(S9*$S/$S<60)*RUNDEN(S9*$S/$S*50;0)/50+(S9*$S/$S>=60)*(S9*$S/$S<150)*RUNDEN(S9*$S/$S*20;0)/20+(S9*$S/$S>=150)*RUNDEN(S9*$S/$S;1)
E10	=(S10*$S/$S<60)*RUNDEN(S10*$S/$S*50;0)/50+(S10*$S/$S>=60)*(S10*$S/$S<150)*RUNDEN(S10*$S/$S*20;0)/20+(S10*$S/$S>=150)*RUNDEN(S10*$S/$S;1)

Excel Tabellen im Web darstellen >>

 

Hallo Edgar,

also das Programm rechnet jetzt was es vor her auch gemacht hat, aber das Runden was mein eigentliches Problem war kann ich nicht erkennen.

Weil wenn ich das gleiche mit deinem VBA-Code rechne kommt das gleiche raus !
0 - 60 kg 0.020kg
60 - 150 kg 0.050kg
150 - 300 kg 0.100kg


Schritte von der Waage !

Und die Schritte von der Waage macht meiner Ansicht dein Programm nicht!

Vielleicht kannst du dir das noch mal anschauen, warum es denn so ist.

Danke !

Gruss Wolf


Ps. diesen Code hab ich auch noch eingebaut gehabt, das ich bei der Auswahl in der Combobox die Auswahl zoomen kann, weil die Schrift so klein ist!

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Target.Validation.InCellDropdown Then ActiveWindow.Zoom = 150
End Sub




Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo errorhandler
If Target.Validation.InCellDropdown Then ActiveWindow.Zoom = 200
Exit Sub
errorhandler:
ActiveWindow.Zoom = 75
End Sub

Das funktioniert jetzt auch nimmer mit deinem Code !

 

Hallo Wolf,

1. es kann nur einmal das Worksheet_change_Ereignis geben.
2. der Code sollte genau das machen, was Du willst, wenn Du das machst, was Du beschrieben hast: Zahlen eingeben in S9 bis S18!
3. wahrscheinlich ist auch Application.Screenupdatng auf False. Das solltest Du auf True setzen, damit der Code wieder läuft.

 

Aber ich hab schon gesehen das ist doch nicht so leicht.

Weil die Formeln löscht es auch wieder heraus wenn ich die eingaben lösche von S5 bis S18 !

Trotzdem Danke für dein Versuch mein Problem zu lösen.

noch einen schönen Sonntag !

Gruss

Wolf39

*frown.gif*

 

Hi Wolf,
nach wie vor verstehe ich nicht so recht, wo dein Problem/Ziel eigentlich liegt.

Ich versuchs mal:
A) In den Zellen E9:E14 soll nach den Regeln gerundet werden.
B) SUMME(E5:E19) soll immer gleich S1 sein.

B) ist schon bei deiner Tabelle immer erfüllt, da E5 etwaige Differenzen trägt.
A) lässt sich durch eine Formel bewerkstelligen.

Was ich nicht verstehe:
Du schreibst, dass S1 und S5:S18 eingegeben werden.
S6, S7, S15, S16, S18 werden aber nirgends verwendet, da die entsprechenden Werte in Spalte E aus einer externen Datei heraus berechnet werden.
Trotzdem wirkt sich eine in S6 eingegebene Zahl auf das Ergebnis aus, indirekt über S19. Das scheint mir inkonsistent.
(Was, wenn jemand in S6 etwas anderes als den Wert in E6 eingibt?)

In Spalte S sollten IMHO nur die Zellen S1, S5 und S9:S14 eingebbar sein.
Der Rest ist leer oder wird aus der externen Datei berechnet.

Schau dir diese Mappe mal an.
Die ext. Bezüge (stören hier nur!) habe ich durch Zahlen ersetzt.
Neu sind die Formeln in E5, E9:E14 und E19.

 

Hallo Erich,

ja du hast mich richtig verstanden, weil genau so sollte das Programm arbeiten. Das ganze in Vba zu machen ist wohl nicht so leicht.

Oder sag mir wie ich vorgehen muss um das auch in Vba zu machen.


Danke mal !

Gruss Wolf39*Smilie

 

Hi Wolf,
"genau so sollte das Programm arbeiten"
Gut, aber was stört dich daran jetzt noch?

"Das ganze in Vba zu machen ist wohl nicht so leicht." Was ist "das Ganze" genau?
Ein paar Formeln in VBA nachzubauen, ist nicht das Problem. Aber wozu?

Formeln auf einem Tabellenblatt sind einfach da und funktionieren, wenn man sie mal hingeschrieben hat, bis man sie löscht. Gibt es etwas Praktischeres?

Ein VBA-Programm muss gestartet werden. Wann soll das geschehen?
(Das kann auch automatisch sein, etwa mit dem Change-Ereignis.)

Was wird besser, wenn ein Teil der Aufgaben in dem Blatt mittels VBA gelöst wird?

Noch einmal: Was genau sollte denn wann mit VBA erledigt werden?
Die Formeln in Spalte E sollten ja wohl stehen bleiben - so habe ich dich verstanden.

Noch eine Bemerkung:
Unter "Was ich nicht verstehe:" habe ich etwas zu den einzugebenden Daten geschrieben.
Schreibst du mir dazu auch mal einen Kommentar?

 

Ich möchte mich bei allen bedanken die mir, versucht haben weiter zu helfen und auch jenen die mir dann weitergeholfen haben.*wink.gif*

Also noch mal vielen vielen Dank !


Gruss

Wolf38
*Smilie

Ps. Erich ich weiss nicht ganz so genau was du meinst mit dem Kommentar ???
bin leider auch nicht so oft in den Foren unterwegs das ich mich so gut auskenne!