Betrag gestaffelt nach Jahren genau aufteilen

[Sigi.21]

Hallo Liesl,

warum gefällt dir meine VBA-Fkt. nicht? (s.Mappe)

Gruß Sigi

[LieslWeppon]

Da es für die Firma ist würde ich gerne Macros vermeiden. Mit Macros lässtsich. auf Grund von internen Einstellungen, die Datei nicht verschicken.

Vlt. kennt jemand eine "macrofreie" Lösung.

Falls nicht, wird es sicher deines Danke

---

Kannst du mir den "Marcotext / VBText" hier rein stellen? 

[BoskoBiati]

Hi,

Warum benutzt Du nicht meine  Formel, vor allem, damit man den Fehler nachvollziehen kann? Deine Formel funktioniert ja sowieso nicht.

[LieslWeppon]

Wie gesagt, das habe ich, sie funktioniert leider nicht.

[Sigi.21]

Hallo Liesl,

hier der VBA-Code:

Function FoerdermittelProJahr(Foerderbetrag As Double, VonMMJJJJ As Date, BisMMJJJJ As Date, Jahr As Long) As Double
Dim M1 As Long, M2 As Long, J1 As Long, J2 As Long, M As Long, J As Long, n As Long, al As Long
    Application.Volatile
    J1 = Year(VonMMJJJJ): M1 = Month(VonMMJJJJ): J2 = Year(BisMMJJJJ): M2 = Month(BisMMJJJJ): J = J1: M = M1
    If VonMMJJJJ <= BisMMJJJJ Then
        Do
            If J = Jahr Then
                al = al + 1: n = n + 1: M = M + 1
                If M > 12 Then
                    J = J + 1: M = 1
                End If
            Else
                al = al + 1: M = M + 1
                If M > 12 Then
                    J = J + 1: M = 1
                End If
            End If
        Loop While (J * 100 + M <= J2 * 100 + M2)
    Else
        n = 0
    End If
    FoerdermittelProJahr = Foerderbetrag * n / al
End Function



Gruß Sigi

[UweD]

Hallo nochmal

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P
1	Förderbeginn	Förderende	Fördersumme	2007	2008	2009	2010	2011	2012	2013	2014	2015	2016	2017	2018	2019
2	01.03.2012	28.02.2017	55.000,00 €	0	0	0	0	0	9166,67	11000,00	11000,00	11000,00	11000,00	1833,33	0	0
3	01.01.2014	31.12.2018	10.000,00 €	0	0	0	0	0	0	0	2000,00	2000,00	2000,00	2000,00	2000,00	0
4	01.09.2007	30.08.2019	20.000,00 €	555,56	1666,67	1666,67	1666,67	1666,67	1666,67	1666,67	1666,67	1666,67	1666,67	1666,67	1666,67	1111,11
5	01.02.2015	31.01.2017	120.000,00 €	0	0	0	0	0	0	0	0	55000,00	60000,00	5000,00	0	0
6

Zelle	Formel
D2	=WENNFEHLER((DATEDIF(MAX($A2;(MONATSENDE(D$1;-12)+1));MIN(D$1;$B2);"YM")+1)*$C2/(DATEDIF($A2;$B2;"M")+1);"0")

LG UweD

[BoskoBiati]

Hi,



wäre mit meiner Formel genauso einfach abzustellen gewesen:

Code:

=WENN((JAHR($A2)>JAHR(D$1))+(JAHR($B2)<JAHR(D$1));0;DATEDIF(MAX($A2;MONATSENDE(D$1+1;-13)-1);MIN($B2;D$1+1);"M")*$C$2/DATEDIF($A$2-1;$B$2+1;"M"))

[LieslWeppon]

Danke UweD


leider hat sich jetzt raus gestellt das deine Formel es nicht berechnet wenn die Laufzeit an einem beliebigen Tag im Monat beginnt:
 

---

Lieber Bosko,

nein leider nicht, deine Formel berechnet das Jahr 2017 nicht richtig.

---

Hallo SIgi

ich habe jetzt die VBA eingefügt aber es kommt immer nur #NAME?

• hab kontrolliert ob richti geschrieben
  
• die } sind auch da
  

noch ne idee an was es liegen kann?

[BoskoBiati]

Hi,

dann zeige das an einem Beispiel, und zwar an einem Muster, was alle möglichen Kombinationen abbildet! Bisher waren alle Daten auf 1. oder Monatsende ausgelegt!

[Sigi.21]

Hallo Liesl,

der VBA-Code muss in ein normales Modul kopiert werden:

im MENÜ: - Entwicklertools - Visual Basic
dort: VBA-Projekt markieren - rechte Maustaste - einfügen - Modul - dort den VBA-Code reinkopieren

anschließend: zurück zu Excel - (im Projektmenü) - Excel-Symbol anklicken

dann: über den Funktionsassistenten (fx) - Kategorie auswählen "benutzerdefiniert" - "FoerdermittelProJahr" markieren - ok
weiter dem Assistenten (wie in Excelformel) folgen

Gruß Sigi