Datum-Liste (Beginn, Ende)



Excel-Version: 97
nach unten

Betrifft: Datum-Liste (Beginn, Ende)
von: Daniel
Geschrieben am: 13.04.2002 - 08:50:18

Hallo,

ich habe diese Frage schon gestellt, aber noch keine Lösung bekommen https://www.herber.de/forum/messages/112699.html

Hier nochmals mein Problem:
Zwischen einem Anfangsdatum und einem Enddatum (B1;C1) sollen mittels Makro in der Spalte C alle Monate (inkl. Anfangs- u. Endmonat) aufgelistet werden, wobei der Tag immer der gleiche (z.B. 1.- gleich wie Anfangsdatum) sein soll.
Bsp:
Anf. 1.1.2000
Ende 1.3.2001
Ergebnis soll sein:
1.1.2000
1.2.2000
1.3.2000
..
1.3.2001

Bitte helft mir!

Danke im Voraus!
Daniel



nach oben   nach unten

Re: Datum-Liste (Beginn, Ende)
von: Hajo
Geschrieben am: 13.04.2002 - 09:33:20

Hallo Daniel
mit Deinem Ergebnis komme ich nicht klar, aber vielleicht hiilft folgendes
276. Datumsdifferenz in Jahren
=DATEDIF(A1;HEUTE();"Y")
Differenz in Tagen: =DATEDIF(Anfangsdatum;Enddatum;"D")
Differenz in Monaten: =DATEDIF(Anfangsdatum;Enddatum;"M")
Differenz in Jahren: =DATEDIF(Anfangsdatum;Enddatum;"Y")
Differenz in Tagen im selben Jahr: =DATEDIF(Anfangsdatum;Enddatum;"YD")
Differenz in Monaten im selben Jahr: =DATEDIF(Anfangsdatum;Enddatum;"YM")
Differenz in Tagen im selben Jahr/Monat: =DATEDIF(Anfangsdatum;Enddatum;"MD")

Gruß Hajo

nach oben   nach unten

Re: Datum-Liste (Beginn, Ende)
von: Daniel
Geschrieben am: 13.04.2002 - 09:56:37

Hallo Hajo,

ich versuchs nochmal:
Der Anwender gibt einen Zeitraum (Vergangenheit) ein (Beginndatum, Enddatum), in dem er einen immer gleichbleibenden Betrag monatlich gespart hat. Ich brauche nun ein Makro, das die ganze Kolonne von Monaten in eine Spalte schreibt und daneben immer den gleichen Betrag. Das mit dem Betrag schaffe ich ja noch gerade, aber ich kriegs nicht hin, dass er bei jedem Datum den Monatsersten nimmt!!

Daniel

nach oben   nach unten

Re: Datum-Liste (Beginn, Ende)
von: Hajo
Geschrieben am: 13.04.2002 - 10:16:38

Hallo Daniel

mal als Ansatz


Sub Monat()
    Dim Datum As Date
    Dim As Integer
    I = 2
    Datum = Range("B1")
    Do
        If Datum > Range("c1") Then Exit Do
        Cells(I, 1) = Datum
        If Month(Datum) = 12 Then
            Datum = CDate("1.1." & Year(Datum) + 1)
        Else
            Datum = CDate("1." & Month(Datum) + 1 & "." & Year(Datum))
        End If
        I = I + 1
    Loop
End Sub

Gruß Hajo


nach oben   nach unten

Re: Datum-Liste (Beginn, Ende)
von: Daniel
Geschrieben am: 13.04.2002 - 11:03:23

Danke Hajo, Du bist der 1. der mir eine echte Hilfe gegeben hat.

Zusatzfrage:
Ist es auch möglich, dass der Tag nicht der 1., sonder der gleiche wie am Beginndatum ist?

Daniel

nach oben   nach unten

Re: Datum-Liste (Beginn, Ende)
von: Hajo
Geschrieben am: 13.04.2002 - 11:10:07

Hallo Daniel

Sub Monat()
    Dim Datum As Date
    Dim As Integer
    I = 2
    Datum = Range("B1")
    Do
        If Datum > Range("C1") Then Exit Do
        Cells(I, 1) = Datum
        If Month(Datum) = 12 Then
            Datum = CDate(Day(Datum) & ".1." & Year(Datum) + 1)
        Else
            Datum = CDate(Day(Datum) & "." & Month(Datum) + 1 & "." & Year(Datum))
        End If
        I = I + 1
    Loop
End Sub

Gruß Hajo


nach oben   nach unten

Re: Danke
von: Daniel
Geschrieben am: 13.04.2002 - 11:42:19

Danke Hajo,

das ist DIE Lösung, die ich wollte! Ein Traum!

Daniel


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "feste Anzahl von Dezimalstellen für Variable"