VBA Code für Datumsberechnung / weitere Verwendung

Moin,
bin im Bereich VBA recht unbedarft und möchte mich in Form von "Learning by Doing" herantasten.
Bin dabei eine Berechnung zu entwickeln und mit dem "Standardwerk" auch schon ganz zufrieden. Jetzt möchte ich aber "mehr", heisst Verfeinerung ist angesagt und da bin ich leider mit meinem Latein am Ende.
Forensuche macht wenig Sinn - kann das gefundene einfach nicht umsetzen.
Problem:
Ich möchte folgendes Erreichen:
Es soll ein Datum eingegeben werden - bspw. 15.12.2012 - eine Dauer - bswp. 6 Monate - eine prozentuale Förderung - bswp. 20 % - und ein Förderbetrag.
Auf Grundlage des Datum und der Dauer möge er dann für jeden Monat, auch Teilmonat (15.12.-31.12.2012), die Zeilen untereinander füllen. In diesem Beispiel müsste die letzte Zeile lauten: 01.06. - 14.06.2012)
Ist so etwas möglich? Ich denke schon, aber auch recht einfach verständlich?
Danke.
Jens

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jens,
wenn ich das richtig sehe, gibt es ein Eingabeformular, und das Füllen einer Gesamtzeile.
ich kann noch nicht erkennen, wie die weiteren Daten generiert und plaziert werden sollen.
Folgende zwei Unterschiede zur ursprünglichen Aufgabenstellung meine ich erkannt zu haben:
- Zeitraum wird nicht mehr durch Datum und Laufzeit, sondern durch Start- und Enddatum eingegeben(wesentlich)
- Ausgabe der Zeitscheibe erfolgt nicht als Text sondern in zwei Zellen als Datum (unwesentlich - sogar einfacher)
Erklärungen zum Einbau des Codes:


Sub GH_MonateFüllen()
'/*** EingabeFelder
Dim FStart As Range
Dim FDauer As Range
Dim FAktDatum As Range
Dim FFoerderung As Range
'     EingabeFelder ***/
'/*** Variablen für Eingabewerte
Dim WStart As Date
Dim WDauer As Double
Dim WFoerderung As Double
'     Variablen für Eingabewerte ***/
Dim Teilmonat
Dim dattext
Dim i
'/*** Initialisieren EingabeFelder, kann wegfallen
Set FStart = Range("B1")
Set FDauer = Range("E1")
Set FFoerderung = Range("H1")
'    Initialisieren EingabeFelder ***/
'/*** aktueller Ausgabeplatz , erforderlich, ermittelst Du über "erste freie Zeile"
Set FAktDatum = Range("B4") '***/
' *** Belegung der Eingabewerte, hier durch Deine Eingabewerte ersetzen
'     durch Enddatumseingabe würde sich die Berechnung der Zeitpunkte verändern
'     insbesondere Tagesgenauigkeit erfordert komplexere Vorgehensweise
'     Wenn Du aus Start- und Enddatum die Dauer in ganzen Monaten auf WDauer legst,
'     kann die Berechnung unverändert übernommen werden.
WStart = FStart
WDauer = FDauer
WFoerderung = FFoerderung
'/*** Berechnung
If Day(WStart) > 1 Then ' Unterscheidung ob am 1. des Monats gestartet wird
Teilmonat = True
End If
If WDauer >= 1 Then  ' Laufzeiten müssen mind 1 Monat sein!!
dattext = Format(WStart, "dd.mm.yyyy") & " - " & Format(DateSerial(Year(WStart), Month( _
WStart) + 1, 1) - 1, "dd.mm.yyyy")
'bei der Ermittlung des Ende-Tages wird vom 1. des Folgemonats einen Tag zurückgegangen
FAktDatum = dattext
Set FAktDatum = FAktDatum.Offset(1, 0)
i = 1
While i

beste Güße,
Günther

Beliebteste Forumthreads (12 Monate)

VBA Code für Datumsberechnung / weitere Verwendung

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Code für Datumsberechnung / weitere Verwendung

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread