Drucken Datumsbereich in Excel

Question

Ich bin ein Neuling in Excel. Ich möchte Makro 2 Argumente nehmen Startdatum & EndDate und Druck Monat weise Datumsbereich wie unten:

Startdatum Endedatum 01-12-2015 24-08-2016

(Zelle A4) (Cell B4) (Cell C4) Von Bis Diff In Tage 01-12-2015 31-12-2015 31 01-01-2016 31-01-2016 31 01-02-2016 29-02-2016 29 01-03-2016 31-03-2016 31 01-04-2016 30-04-2016 30 01-05-2016 31-05-2016 31 01-06-2016 31-06-2016 31 01-07-2016 30- 07-2016 30 01-08-2016 24-08-2016 24

Bitte helfen Sie mir mit dem Code. Danke im Voraus.

Answer 1

Diese Seite ist kein Code-Writing-Service (die Leute bezahlen dafür), aber aus meiner eigenen Neugierde habe ich das hier zusammengestellt. Ich hoffe es hilft.

Sub date_info() 

Dim date1 As Date 
Dim date2 As Date 
Dim dateT As Date 
Dim myRow As Integer 

With ActiveSheet 
    .[A3:C1000].ClearContents 
    date1 = .[A2].Value 
    date2 = .[B2].Value 
    myRow = 3 
    .Cells(myRow, 1).Value = date1 

Do Until dateT > date2 
    date1 = DateAdd("m", 1, date1) 
    dateT = DateAdd("d", -1, date1) 
    .Cells(myRow + 1, 1).Value = date1 
    .Cells(myRow, 2).Value = dateT 
    .Cells(myRow, 3).Value = .Cells(myRow, 2).Value - .Cells(myRow, 1).Value + 1 
    myRow = myRow + 1 
Loop 

.Cells(myRow, 1).Value = "" 
End With 
End Sub