ich möchte Geburtstage in einer MessageBox anzeigen lassen.
Das klappt auch recht gut mit unten stehendem Code. Danke noch einmal an den Autor.
Leider erfolgt die Anzeige der Geburtstage unsortiert...
Meine Frage...
Ist es möglich, die Geburtstage auch sortiert nach Datum anzuzeigen?
Wer kann den Code entsprechend anpassen?
Danke für eure Hilfe!
LG Ina
Code:
Private Sub GEBURTSTAGS_INFO()
Dim sMldg1 As String, sMldg2 As String, lR As Long, iDiff As Integer
Const iNn As Integer = 3 ' Spalte C - Nachnamen
Const iVn As Integer = 5 ' Spalte E - Vornamen
Const iG As Integer = 8 ' Spalte H - Geburtstage
Call SortierungGeburtsJahr
ActiveSheet.Protect
Beep
sMldg1 = "Geburtstage heute:" & vbLf
lR = 4
Do Until IsEmpty(Cells(lR, iVn))
iDiff = DateSerial(Year(Date), Month(Cells(lR, iG)), Day(Cells(lR, iG))) - Date
If iDiff "" Then
MsgBox "Geburtstage in den nächsten 10 Tagen:" & vbLf & sMldg2, , " GEBURTSTAGS-INFO... _
_
_
Else
MsgBox "Keine Geburtstage in den nächsten 10 Tagen!", , " GEBURTSTAGS-INFO..."
End If
End If
Call SortierungName
End Sub