Code: Alles auswählen
Sub Main
blatt = ThisComponent.Sheets.getbyName("Termine")
spalte=blatt.Columns(0)
oleer=spalte.queryemptycells
oletzter=oleer(oleer.count-1)
Daten = Blatt.getCellRangeByPosition(0,1,0,oletzter.rangeaddress.startrow-1).getDataArray()
akt = INT(NOW())
txt = "Für folgende Daten gibt es innerhalb " & CHR(13) & "der nächsten 14 Tage Termineinträge:" & CHR(13) & CHR(13)
For i = 0 To UBOUND(Daten())
If ((Daten(i) (0))-akt <= 14) AND ((Daten(i) (0))-akt >= 0) Then
txt = txt & FORMAT(Daten(i) (0), "DD.MM.YYYY") & CHR(13)
End if
Next i
Msgbox txt, 64, "Aktuelle Termine"
End Sub
(Die Ausführung von Makros muss unter Extras-Einstellungen-OpenOffice-Sicherheit-Makrosicherheit-niedrig aktiviert sein.)
Anzeige ist dann z.B.:
Gruß
Stephan