datum
07.05.2008 19:53:00
ralf
habe eine frage zum datum
kann man diesen code so umbauen dass er nach tag und monat sucht und nicht nur nach
monat
Sub Suchenin_Adressen3()
Dim lngZeile As Long
Dim varDat As Variant
Dim strTemp As String
varDat = Month(Date)
With Worksheets("Adressen")
For lngZeile = 1 To .Range("O36656").End(xlUp).Row
If Month(.Range("O" & lngZeile).Value) = varDat Then
strTemp = "Achtung" & strTemp & vbCrLf & .Cells(lngZeile, 2).Value & _
" " & .Cells(lngZeile, 1) & " hat diesen Monat Geburtstag !!! "
End If
Next lngZeile
End With
If strTemp = Empty Then strTemp = "keiner"
MsgBox strTemp, 64, " Info für " & Application.UserName
End Sub
gruss
ralf