Office: FIFO-Bewertung

Hallo Freunde des VBA-Codes,

ich bräuchte Hilfe beim Entwerfen eines Codes für die FIFO-Mehtode. Und zwar geht es um die Bewertung von Auslandswährungen. Ich benötige ein Tabellenblatt auf dem die Zugänge mit Kurs und Eurowert sowie die Abgänge mit Kurs und Eurowert der Fremdwährung abzulesen sind.

Die Tabelle dient für die Buchhaltung und ermöglicht den direkten Vergleich mit dem Buchhaltungssystem, dass nur in EURO gebucht wird.

Für genauere Angaben:
1. Zugang + Kurs eingeben, Eurowert ermitteln (funktioniert einfach über Formel)
2. Abgang: Hier sollen für den Abgang jeweils die ersten noch verfügbaren Fremdwährungstranchen verwendet werden. Diese also mit ihrem jeweiligen Kurs aufaddieren und sofern der Betrag erreicht ist nur noch den Rest für die nächste Zahlung übrig lassen. Hier komme ich nicht weiter, da ich nur rudimentäre Kenntnisse in VBA besitze.
Sofern ein Abgang verzeichnet wird, soll er den ersten Rest verbrauchen + die restlichen Reste bis Summe(Rest)=Abgang entspricht. Aus den verbrauchten Tranchen + Währungskurs, soll mir dann der Wechselkurs des Abgangs und der entsprechende Eurobetrag angegeben werden. Hier benötigt man also DOs oder WHILEs inklusive Zähler oder so? Das übersteigt dann doch meine Fähigkeiten.

Soll ungefähr so aussehen wie angehängt. Wichtig ist, das ich für jeden Abgang den Durchschnittskurs benötige.... Und dann eben die Reste automatisch angepasst werden bei jedem neuen Abgang.

Kann mir jemand etwas schreiben? Beste Grüße Armin

EDIT: Natürlich können Zu- und Abgänge auch in einer Zeile stehen, dass heisst am selben Tag ein/ausgehen.

:)

 

Also um es kurz zu machen, ich hab dein Problem weder aus deiner Mustermappe noch aus deiner BEschreibung erkennen können.

Und da bisher noch keiner geantwortet hat, würde ich das für viele der Mitstreiter hier ebenso annehmen.

1. Versuch dein Problem nochmals aus der Sicht eines unwissenden beschreiben. (Dazu gehört auch die Zellen zu nennen)
2. Du redest von einem Code. Lädtst aber eine xlsx hoch. hast du bereits einige ansätze für einen Code oder erwartest du das wir dir einen kompletten schreiben?
3. Wie sieht es mit einer Formellösung aus? Wäre die in Abhängigkeit deiner konkreten Fragestellung auch denkbar?

Grüße

 

Ok ich sehe schon, mein Fehler -.-

Also es handelt sich um eine FIFO-Methode.
1. Ich erhalte Zahlungen in Auslandswährung zu einem entsprechenden Eurokurs. 2. Bei einem Zahlungsausgang verwende ich die also verschiedene eingegangene Beträge zu unterschiedlichen Kursen. Im Beispiel habe ich also 500 zu 1,365 und 200 zu 1,3584 überwiesen bekommen. Der nächste Zahlungsausgang beträgt 506 in Fremdwährung. Das bedeutet zuerst werden die 500 vollständig zu 1,365 verbraucht und anschließend der Rest von 6 zu 1,3584. Ergibt: Abgang von 506 = (500/1,365)+(6/1,3584) = 370,72 Euro. Und der Kurs beträgt 506/370,72=1,3649 (Hier hatte ich einen falschen Wert eingetragen). Ich benötige diesen Eurowert nach FIFO Methode, den Wechselkurs und die Reste. Damit führe ich quasi das Bankkonto parallel und pflege die Eingänge und Zugänge. Dieser Vorgang dient der Ermittlung der Währungskursdifferenzen zwischen Rechnungseingang/Ausgang und der tatsächlichen Bezahlung.

Die Datei dient nur als Beispiel wie es aussehen könnte. Wie gesagt ich bin VBA Neuling und komme noch nicht mit den komplexen Anweisungen/Syntax/Logik klar.

Ich weiss, dass es wie eine queue funktionieren müsste. Eingänge wären eine queue (zb X), abgänge eine zweite (zb Y). Sofern ein Abgang x eingeht (1. Element in queue X) soll er x=x-y(i) rechnen bis x=0. Die y(i) < x sind fliegen jeweils aus der queue Y bzw. sind dann gleich 0 und das Element y(i) > x soll mit y(i)-x als neuem Wert in Position 1 von queue Y stehen bleiben. x fliegt aus Queue X raus. So würde das FIFO verfahren prinzipiell aussehen.

Allerdings benötige ich für den Abgang x eben auch den aufsummierten Eurobetrag und den durchschnittlichen Kurs des Abgangs (Spalte G-I). MitHilfe von Spalten K und L sehe ich wieviel von den jeweiligen Eingängen noch verwendet werden kann und mit diesen Werten kann ich unkompliziert in N,O den aktuellen Kontostand des Währungskontos in Fremdwährung sowie EURO ablesen und mit dem Buchhaltungssystem vergleichen um zu prüfen ob sich irgendwo ein Fehler (z.B. falscher Kurs) eingeschlichen hat.

Ich habe auch schon hin und her überlegt, aber eine Formellösung wollte mir nicht einfallen, da das ganze doch sehr dynamisch ist?!

Weiss nicht ob diese Erläuterungen was nützen, aber wie gesagt, ich hab schon das Internet durchforstet, finde aber keinen verständlichen Lösungsansatz...

Beste Grüße
Armin

 

Hallo,

der Rest in Zelle K3 müsste dann also 194 lauten?

VG

 

Hallo,

dann hier mal eine Formellösung, im Anhang auch als Datei:


Tabelle1

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O
1	Datum		Zugang	Kurs	Wert		Abgang	Kurs	Eurowert		Rest	Eurorest		Kontostand	Eurowert
2	17.07.2014		500	1,365	366,300366300366						0	0		144	113,455153844143
3	18.07.2014		200	1,3584	147,232037691402						0	0
4	20.07.2014						506	0,735304802731963	688,15
5	23.07.2014		150	1,3584	110,424028268551						0	0
6	24.07.2014		200	1,3684	146,156094709149						44	32,1543408360129
7	18.07.2014						200	0,643086816720257	311
8	19.07.2014		100	1,23	81,3008130081301						100	81,3008130081301
9	20.07.2014						300	0,8	375

verwendete Formeln
Zelle	Formel	Bereich	N/A
N2:O2	=SUMME(K:K)
H2:H8	=WENN(G2="";"";G2/I2)
I2:I3,I5:I6,E2:E9,I8:I9	=WENN(H2="";"";G2/H2)
K2:K9	=WENN($C2<>"";MIN(MAX(0;SUMME($C:$C2)-SUMME($G:$G));$C2);"")
L2:L9	=WENN(K2<>"";K2/D2;"")

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 18.01 einschl. 64 Bit

Hilft dir das weiter?
VG

 

Damnit *biggrin.gif* das sieht gut aus. Nur sie Spalte I und H stimmen noch nicht bzw. fehlt die dynamische berechnung des Eurowerts der verwendeten Fremdwährungszahlungen....

Uff und wenn du vielleicht kurz die Formel mit MinMAx erklären könntest. Wenn nicht auch nicht schlimm. Auf jedenfall super sache.

Lernen eine Menge ich noch müssen... *Smilie

Besten Gruß und schonmal vielen Dank!

EDIT: Die Spalten H und I habe ich nur zur Veranschauung gefüllt. In Spalte H soll G2/I2 gerechnet werden. Soweit richtig. In Spalte I jedoch soll die Summe der verwendeten Zahlungen/Zugangskurs auftauchen. Im 1. Fall also 500/1,365 +6/1,3584 = 370,72 ergeben usw. ....

 

Hallo,

Doch Spalte I und H funktionieren auch.
Es gibt zwar erst einen Fehler, aber du musst einfach einen der beiden Werte eintragen, der jeweils andere wird dann berechnet.

Zu meiner Formel:
Im Kern berechne ich zunächst die Summe aus den Eingängen bisher und ziehe die Summe aller Abgänge davon ab.
Jetzt muss ich zwei Fälle abfangen:

1. Alle bisherigen Eingänge reichen nicht aus, um die Abgänge zu decken. Mein Ergenis wäre negativ, also trage ich 0 ein. --> Max(0;Zwischenergebnis1)
2. Der aktuelle Eingang muss noch gar nicht angetastet werden, um die Abgänge zu ermöglichen. Mein Ergebnis wäre höher, als der Aktuelle Eingang, dann trage ich nur den aktuellen Eingang ein --> Min(Eingang;Zwischenergebnis2)

VG

Edit, ok mir war nicht klar, dass I berechnet wird. Ich schaue noch einmal

 

Ok, hab die Formel verstanden. Kling einleuchtend! Einfach unkompliziert und MEGAHILFREICH...

 

Aber H stimmt doch nicht. Dort müsste wie gesagt 370,72 auftauchen und dementsprechend ein Kusr von 1,3... irgendwas. und nicht 0,735

 

Ja, an der Stelle habe ich deine Werte benutzt. Muss mir noch überlegen, wie ich das am besten per Formel berechne...

VG

 

oh man, das wäre so super wenn du das irgendwie hinkriegen würdest. Wie gesagt, hier muss er ja eigentlich ne art schleife durchlaufen... aber vielleicht findest du ja eine formellösung... anyways nochmal vielen Dank

 

Hallo,

ich habe im Internet ein funktionierendes Makro gefunden und habe es auf deine Tabelle angepasst. Dabei ist mir aufgefallen, dass du ja durch den Kurs teilst und nicht multiplizierst. In der Formel gibst du das über den letzten Parameter ein: Wahr für Multiplizieren und Falsch für Dividieren.

Im Anhang ist die Tabelle komplett fertig, hier mein angepasster Code:
Damit er funktioniert, darfst du keine negativen Bestände haben, und die erste Zeile muss einen Zugang haben.
Code:

Quelle des Codes: http://www.herber.de/forum/archiv/78...mit_Excel.html

Übrigens:
Falls du die Zellen K und L nur zur Berechnung gebraucht hast, könntest du sie nun streichen.

Fragen und Feedback gerne *Smilie
VG

 

Hmm also wenn ich unter dem 20.7. noch zu bzw. abgänge eingebe geschehen unheimliche dinge... hast du mal versucht die liste zu erweitern.

Ansonsten kann man es auch händisch lösen indem man wenn man einen abgang eingibt zunächst den alten Kontostand abliest. Alter Kontostand - Abgang ergibt dann den Eurobetrag des Abgangs. Diesen trägt man nun per Hand ein und lässt den Kurs errechnen. Weiß nur nicht ob man ihm das auch sagen kann, da der Kontostand nach Eingabe des Abgangs gemindert ist und nicht mehr zur Berechnung dienen kann. Alter Kontostand-neuer Kontostand. Vielleicht könnte man per Makro einfach eine Zwischenzelle verwenden, die jeweils mit dem vorhergehenden Kontostand gefüllt ist und beim nächsten Abgang wiederum ersetzt wird....

Egal wie, du hast mir mit der MinMax Funktion schon mal sehr geholfen... hätte man auch selbst drauf kommen können *biggrin.gif*

Vielen Dank schon mal und ein schönes WE, ich schwing mich demnächst mal nach Haus.

Gruß Armin

 

So hier noch einmal:

 

SAUGEIL ^^... vielen Dank. Damit können Ordner, Stift und Eingabefehler eleminiert werden.

Super!