Geburtstagsliste
01.04.2016 19:50:03
Michael
Ich habe mir auf Youtube Ein Video zur Gestaltung einer Geburtstagsliste angeschaut und diesen Code in das von mir neu angelegte Modul "alter" kopiert, so wie es beschrieben war. Nun bekomme ich den Fehler: End if ohne Block
und "
Sub alter berechnen" wird gelb markiert.
Was ist falsch/mache ich falsch? Eigendlich sollte er mir doch die Spalten 21 und 22 berechnen _
und entsprechend formatieren. Das Geburtstagsdatum steht in Spalte 4 der Tabelle1.
Würde mich über Hilfe sehr freuen.
Gruß Michael
Global alter(1 To 500), rtage(1 To 500), lzeile
Sub alter_berechnen()
lzeile = Sheets(1).UsedRange.Rows.Count + 1
For i = 2 To lzeile
anzmonate = DateDiff("m", Cells(i, 4), Date)
jahre = Split(antmonate / 12, ",")
restmonate = anzmonate - (jahre(0) * 12)
resttagedatum = Day(Cells(i, 4)) & "." & Month(Cells(i, 4)) & "." & Year(Date)
Resttage = DateDiff("d", Date, resttagedatum)
'If Resttage > 0 And Resttage 1 Then
Cells(i, 21) = jahre(0) & "Jahre" & restmonte & " Monate"
End If
If restmonate = 1 Then
Cells(i, 21) = jahre(0) & "Jahre" & restmonte & " Monat"
End If
If restmonate