array für monatsangaben
hans
habe ein array geschrieben.
definiert als monate von "jan 11" bis "dez 20".
im eingabefenster kann ich startmonat und startjahr extra eingeben, und das gleiche nochmal fürs ende
bekomme dann für den angegebenen zeitraum, für jeden monat eine extra spalte zurück.
so ähnlich ist die nächste funktion die ich aufgebaut habe.
für jede teilaktivität kann ich startmonat und jahr eingeben (und ende).
es sollte dann also wie folgt aussehen:
jan 11 feb 11 märz 11 apr 11.............................dez 11 jan 12
1--------1-------1---------2-------------------------------2--------3
für jeden monat eine spalte, sowie eine zeile drunter die teilaktivität dann nach länge der teilaktivität.
die erste teilaktivität(TA) funktioniert auch noch einwandfrei bei mir.
definiert habe ich:
jahresende TA1, monatsendeTA1, die monatsdifferenz, sowie extra monate für mehrere jahre (endjahr-startjahr)*12
startzeitpunkt habe ich ja von der gesamtdauer schon gegeben.
For i = anfangsmonat To (monatsdifferenz + anfangsmonat + extraMonate)
Worksheets("2").Cells(2, i-anfangsmonat).Value = "TA 1"
Next i
jetzt habe ich ein riesen problem die TA2 zu programmieren.
definiert sind:
anfangsmonat, anfangsjahr,endmonat, endjahr, monatsdifferenz und extramonate( (endjahr-startjahr)*12)
For i = TA2anfangsmonat To (monatsdifferenz2 + TA2anfangsmonat+extramonate)
Worksheets("2").Cells(2, i).Value = "TA2"
Next i
probiert hab ich schon folgendes:
wenn startjahr TA2 größer als startjahr gesamt dann soll er für jedes jahr dem TA2anfangsmonat 12 monate hinzurechnen.
es stimmt aber leider weder die TA2 Dauer noch der Zeitpunkt an dem er einsetzen soll
kann mir einer von euch helfen?