Habe vor geraumer Zeit ein Makro für Urlaubsberechnung bekommen.Wenn ein neues Jahr im Tab.Blatt A6:A52 steht das Datum kommt, werden die Werte von "Legende"H9 plus die nicht konsumierten Stunden von M59 mitübernommen.
Nun möchte ich aber die nicht konsumierten Stunden bei Jahreswechsel nicht mitübernehmen.
Könnte mir bitte bei diesem Probl.jemand helfen ?
Danke Heinz
'eingefügt von Heinz Berechnung für Bildungsurlaub
ETDat = Sheets("Legende").Range("D3").Value
EinfDatB = .Range("A6").Value - 2
EinfDatE = .Range("A52").Value

For zi = 1 To 500
ETDat = DateSerial(Year(ETDat) + 1, Month(ETDat), Day(ETDat))
If ETDat >= EinfDatB And ETDat
JUrl = Sheets("Legende").Range("H9").Value
.Range("M59").Value = .Range("M59").Value + JUrl
End If
Next zi
'Ende eingefügt von Heinz für Bildungsurlaub