Geburtstagsliste

Hallo an alle Experten für VBA, mal wieder brauch ich eure Hilfe.
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub alter_berechnen() lzeile = Sheets(1).UsedRange.Rows.Count + 1 For i = 2 To lzeile anzmonate = DateDiff("m", Cells(i, 4), Date) jahre = Split(anzmonate / 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 & " & restmonate & " Monate" End If If restmonate = 1 Then Cells(i, 21) = jahre(0) & " Jahre &" & restmonate & " Monat" End If If restmonate 1 Then Cells(i, 22) = " noch " & resttage & " Tage" End If If resttage = 1 Then Cells(i, 22) = " noch " & resttage & " Tag" End If If resttage = 0 Then Cells(i, 22) = "Heute" End If alter(i) = CLng(Cells(i, 4)) rtage(i) = resttage Next For i = 21 To 22 Columns(i).AutoFit Next End Sub

Hallo Michael,
ich hatte jetzt Zeit mir das mal anzusehen.
Im Modul für das Errechnen des Alters habe ich mal alles sauber referenziert. Zudem ist in diesem Modul jetzt drin, dass die Daten für deine Geburtstagsliste in der UserForm zunächst mal in die Tabelle Geburtstag übertragen wird, anschließend wird das Blatt Geburtstag aufsteigend sortiert.
Zwei Sachen:
1. Du prüfst bei der Eingabe eines neuen Mitarbeiters, ob der Name in der Stammdatenliste bereits vorhanden ist. Was ist, wenn du bereits einen Mitarbeiter mit dem Namen Horst Müller hast und du einen neuen Mitarbeiter mit dem Namen Fritz Müller er fassen willst? Das habe ich dir aber schon einmal geschrieben. Ich würde eher die Liste mit den Personalnummern auf Doppelte prüfen. Ich denke zwei Mitarbeiter mit der selben Personalnummer sollte es wohl nicht geben.
2. Die Berechnung des Alters und der Geburtstage solltest du meiner Meinung nach auch in den Button für die Änderung an Mitarbeiterdaten einbauen. Rein theoretisch könnte es ja sein, dass bei der Ersterfassung versehentlich ein falsches Geburtsdatum eingetragen wurde. Deshalb sollte bei einer Änderung des Geburtsdatums die Routine für die Altersberechnung ebenfalls durchgeführt werden. Aber das kreigst du sicher selber hin, ist ja nur eine Zeile mit: Call alter_berechnen
Schau dir die Datei einmal an.
https://www.herber.de/bbs/user/104794.xlsm
Gruß Werner

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Geburtstagsliste

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread