Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1548to1552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Mieteinnamen im "Kalender" darstellen, anteilig

Mieteinnamen im "Kalender" darstellen, anteilig
06.04.2017 23:33:48
Georg
Hallo Forum,
Ausgangslage:
A2: Miete 1.000
B2: Beginn: 15.06.2016
C2: Ende: 20.01.2017
D1 bis M2: Datum vom 31.05.2016 bis 28.02.2017
Ergebnis:
Die Miete soll in der Zeile 2 der Spalten D2 bis M2 erscheinen. Also wenn Beginn UND Ende GLEICH dem Monat der Zellen D1 bis M2.
Problem:
E1: darf nur anteilig der Miete sein: EUR 500, weil halber Monat
L1: darf nur anteilig der Miete sein: EUR 645, weil nur 20 Tage vom Januar.
Es wäre schön ein (einfache) Lösung zu finden.
Gruß Georg

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mieteinnamen im "Kalender" darstellen, anteilig
06.04.2017 23:38:54
Georg
Da hätten wir noch meinen Entwurf:
Register Ergebnis, wie es sein sollte
Register Versuch, unzählige Einzelschritte ...
https://www.herber.de/bbs/user/112708.xlsx
Der Code erstellt Dir eine entspr. Tabelle
07.04.2017 07:42:41
lupo1

Sub PeriodischeAufgeteilteZahlungen()
Workbooks.Add xlWorksheet
[F2].Select: ActiveWindow.FreezePanes = True
Cells.ColumnWidth = 5.5
Columns("A:C").ColumnWidth = 10
Range("A1:E1") = Array("von", "bis", "€ p.a.", "n pa", "Shft")
Range("A2:E2") = Array(42201, 42400, 20000, 2, 0)
Rows("1:1").NumberFormat = "mmmyy"
Rows("2:2").NumberFormat = "0;;"
Range("A:B").NumberFormat = "dd.mm.yyyy"
Range("F1") = "1/1/2015"
Range("G1:AZ1").FormulaR1C1 = "=RC[-1]+32-DAY(RC[-1]+31)"
Range("F2:AZ2").FormulaR1C1 = "=MAX(,MIN(INDEX(R1C[1]:R1C[12],12/RC4),RC2)-MAX(R1C," & _
"RC1))/(INDEX(R1C[1]:R1C[12],12/RC4)-R1C)*(MOD(MONTH(R1C)-1-RC5,12/RC4)=0)/RC4*RC3"
End Sub
ändere das auf
€ p.a. 12000
n pa 12
Anzeige
Danke!
09.04.2017 14:08:12
Georg
Hallo Lupo1!
Vielen Dank, es funktioniert!
Gruß Georg

227 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige