habe mal wieder ein problem . versuche anhand einers makros ein geburtstag heraus
zufinden . habe von euch genialen köpfen schon mehrere makro bekommen . jetzt versuche
ich nur nach monat zu suchen habe dieses makro mir zusammengebastelt funktioniert auch
soweit aber wieso kriege ich es nicht hin das er statt tage nach monat sucht
Sub Suchenin_Adressen3()
Dim rngDatum As Range, varDat As Variant, strTemp As String
Dim EDatum
varDat = Format(Date + 30, "mmm") + "*"
For Each rngDatum In Worksheets("Adressen").Range("o1:o30")
If rngDatum.Text Like varDat Then
strTemp = "Achtung" + strTemp + vbCrLf + rngDatum.Offset(0, -13) + " " + rngDatum.Offset(0, _
_
-14) + " hat in einen Monat Geburtstag !!! "
End If
Next
If strTemp = Empty Then strTemp = "keiner"
MsgBox strTemp
End Sub
habe keine ahnung mehr habe es über mehrere versionen versucht er berechnet nur tage anstatt
monate
gruss ralf