ich habe folgendes Problem. Ich habe in den Untiefen des Internet folgendes Makro aufgetan. Dieses schreibt mir die zwischen zwei Monaten einer Datumsangabe liegenden Monate aus den Spalten 1 und 2 in die Spalte 3 folgende fort (siehe Beispiel).
Ich würde das Makro gerne auf eine andere Arbeitsmappe übertragen in der eine Tabelle liegt wo das Startdatum in Spalte 7, das Enddatum in Spalte 8 und der Ausgabebereich ab Spalte 20 starten soll, da n der Tabelle noch weitere Infos vorhanden sind. Was muss ich nun anpassen?
Ich hoffe ihr könnt mir helfen.
Startdatum Enddatum Monat Monat Monat Monat Monat Monat Monat Monat
01.01.2019 31.08.2019 Jan 19 Feb 19 Mrz 19 Apr 19 Mai 19 Jun 19 Jul 19 Aug 19
01.02.2019 31.08.2019 Feb 19 Mrz 19 Apr 19 Mai 19 Jun 19 Jul 19 Aug 19
02.02.2019 31.08.2019 Feb 19 Mrz 19 Apr 19 Mai 19 Jun 19 Jul 19 Aug 19
01.05.2019 31.08.2019 Mai 19 Jun 19 Jul 19 Aug 19
01.10.2019 31.01.2020 Okt 19 Nov 19 Dez 19 Jan 20
01.02.2020 30.04.2020 Feb 20 Mrz 20 Apr 20
Sub datumfummelei()
Dim Start As Date
Dim Ende As Date
Dim Startmonat As Date
Dim Endmonat As Date
Dim Zeitraum As Integer
Dim i As Integer
Dim j As Integer
i = 1
Do While Cells(i, 1) 0
Start = DateValue(Cells(i, 1))
Ende = DateValue(Cells(i, 2))
Zeitraum = DateDiff("m", Start, Ende)
j = 0
Do While j