Datum plus Monat berechnen
22.11.2018 13:34:10
Andy
brauch eure Hilfe!!
habe eine Spalte B Datumswerte stehen und in Spalte A Zahlen für Monate.
Jede zweite Spalte hat eine Jahreszahl als Überschrift
Jetzt soll anhand der Spalte B (Datumswerte) und der Spalte A (Zahlen)
jeiweils für die ganzen Zeilen Datum plus Monat berechnet werden, aber nur die Ausgabe in den
einzelnen Spalten wenn das Jahr der Spaltenüberschrift übereinstimmt, ansonsten den Text aus Spalte A übernehmen.
Habe schon mal was angefangen, aber berechnet nur die Tage
Prüfzyklus 2017 Status2017 2018 Status2018 2019 usw.
12 01.Sep 2017 ja
12 01.Nov 2017 nein
12 01.Mrz 2017 ja
24 01.Jan 2017
12 30.Nov 2017
Keine Prüfpfl. Keine Prüfpfl. ja
12 01.Okt 2017 nein
Keine Prüfpfl. Keine Prüfpfl. nein
Sub MonatBerechnen()
Dim lngZeile As Long
Dim lngZeileMax As Long
With Tabelle5
lngZeileMax = .Cells(.Rows.Count, 2).End(xlUp).Row
For lngZeile = 2 To lngZeileMax
If (.Cells(lngZeile, 3).Value) = True Then
.Cells(lngZeile, 4).Value = DateSerial(Year(.Cells(lngZeile, 3).Value), Month(. _
Cells(lngZeile, 3).Value) + .Cells(lngZeile, 2).Value, Day(.Cells(lngZeile, 3).Value).Value)
Else
.Cells(lngZeile, 4).Value = .Cells(lngZeile, 3).Value
.Cells(lngZeile, 4).Value = Format(.Cells(lngZeile, 4), "dd mmm.yyyy")
End If
Next lngZeile
End With
End Sub
Vielen Dank im vorraus!!