Dim R As Integer                                                ' Ein Index 
  ' der in einer Schleife immer um 1 erhöht wird
  Dim DAT As String
  Dim STR As String
 
  DAT = CStr(Date)                                                ' Aktuelles 
  ' Datum als String
  STR = CStr(Cells(R, 3).Value)                                   ' Iergend ein 
  ' altes Datum in einer Zelle, als String
  If ( CInt((Mid(DAT, 4, 2)) - CInt(Mid(STR, 4, 2))) >= 3 ) Then  ' Wenn 3 
  ' Monate (Tag ist unwichtig, einfach nur Aktueller Monat minus alter Monat) 
  ' vergangen sind dann...