AW: Datum vergleichen per VBA
17.02.2005 23:48:33
Franz
Hallo K.Rola,
hier ein bisschen genauer:
Private Sub aktGeb()
Dim n As Integer
Dim rng As Range
Dim strText As String
Dim blnFound As Boolean
strText = Chr(13) & "Geburtstage in den nächsten 14 Tagen:" & vbLf & vbLf & "Datum" & _
vbTab & vbTab & vbTab & "Name" & vbLf & vbLf
For Each rng In Sheets("Daten").Range("AW4:AW1500")
If IsDate(rng) Then
If rng > Range("AW3") Then
MsgBox rng & " > " & Date
'If DateDiff("d", Date, DateSerial(Year(Date), _
Month(rng), Day(rng)), vbMonday) < 14 Then
blnFound = True
strText = strText & Format(rng, "ddd,") & vbTab & Format(rng, "dd. mmmm") & vbTab & _
rng.Offset(0, -45) & " " & rng.Offset(0, -46) & " " & vbLf
'End If
End If
End If
Next
If blnFound Then
MsgBox strText & vbLf & vbLf, 48, " Anstehende Geburtstage"
End If
End Sub
Die Datümer in der Spalte "AW" haben das Format "TT.MM.JJJJ"
Grüße
Franz