Geburtstage mit Alter in MsgBox anzeigen
07.02.2022 06:49:49
Sarah
ich brauche Hilfe!
Ich habe eine eine Mitarbeiterliste mit dem vollständigen Geburtsdatum in J3, in D3 die Vor- und in E3 die Nachnamen.
Meine MsgBox zeig die aktuellen Geburtstagskinder mit Alter an.
Ich Scheitere an dem Wunsch an einem Montag ("Heute":07.02.2022) auch die Geb´s von Samstag (05.02.2022) und Sonntag (06.02.2022) zusehen.
Dazu jeden Tag eine Vorschau vom nächsten Tag zusehen.
Und wenn ich die Liste an einem Freitag ("Heute":04.02.2022) öffne möchte ich Samstag(05.02.2022), Sonntag(06.02.2022) und Montag(07.02.2022) sehen.
Dies ist mein aktueller Code:
Private Sub Workbook_Open()
Dim rng As Range
Dim strMsg As String
With Sheets("MA-Daten")
For Each rng In .Range("J3:J" & Application.Max(2, .Cells(.Rows.Count, 10).End(xlUp).Row))
If DateSerial(Year(Date), Month(rng), Day(rng)) = Date Then
strMsg = strMsg & Left(.Cells(rng.Row, 5).Text & " " & .Cells(rng.Row, 4).Text & String(35, " "), 35) & vbTab & "(" & Year(Date) - Year(rng) & ")" & vbLf
End If
Next
End With
If Len(strMsg) Then
strMsg = "Geburtstage am " & Format(Date, "dddd, dd.MM.yyyy") & vbLf & vbLf & strMsg
MsgBox strMsg
Else
MsgBox "Heute hat keiner Geburtstag!"
End If
End Sub
https://www.herber.de/bbs/user/150941.xlsm
Vielen Dank schonmal für eure Unterstützung.
LG
Sarah