fällige Termindaten in Calc anzeigen lassen

[Stephan]

Wenn die Datumswerte in Spalte A der Tabelle namens "Termine" stehehen, erledigt z.B. Makro die Anzeige;

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

Das Makro ist iun der angehängten Datei als Autostartmakro hinterlegt.

(Die Ausführung von Makros muss unter Extras-Einstellungen-OpenOffice-Sicherheit-Makrosicherheit-niedrig aktiviert sein.)


Anzeige ist dann z.B.:

Terminanzeige.gif (10.2 KiB) 3568 mal betrachtet

Gruß
Stephan

[echo]

Hallo
mit "Bordmitteln" also ohne Makros ist auch so einiges möglich. Spalten hat so eine Tabelle ja genug.
mal ein Beispiel
Gruß Holger

Unbenannt1.ods

(73.82 KiB) 189-mal heruntergeladen

[Stephan]

mit "Bordmitteln" also ohne Makros ist auch so einiges möglich.

Mein Vorschlag bezog sich auf das gewünschte "aufploppen", wofür ich keine makrofreie Lösung sehe, wohingegen die konkrete Darstellung ja noch wandelbar ist und die Msg-Box nur eine Möglichkeit.


Gruß
Stephan

[echo]

Hallo Stephan,
da hast du vollkommen Recht, "aufploppen" geht nur per Makro, erst recht, wenn die Datei selbst nicht geöffnet werden soll.

Wollte nur mal aufzeigen, das bei einer geöffneten Datei durchaus andere Darstellungen möglich sind.
Gruß Holger

[Hiker]

- OpenOffice ist aktuell und meisst geöffnet, nur diese Datei nicht

Hallo,

als ich die Frage gelesen habe, ging ich davon aus, dass es keine Lösung mit einer geschlossenen Datei gibt...

Frau Müller müsste die Terminverwaltung immer noch per Hand öffnen oder die Datei mit Betriebssystem-Mitteln automatisch starten. Oder sehe ich das falsch?

Meine Lösung via .ics-Export ist ja nach Aufgabenstellung nicht gefragt. Aber da Thunderbird das alles schon hat, wollte ich das nie nochmal in AO/L-Office programmieren.

Mfg, Jörn

[Stephan]

Hallo Holger,

erst recht, wenn die Datei selbst nicht geöffnet werden soll.

Doch, ich ging, bei meiner Lösung, davon aus das die Datei geöffnet werden soll.
(technisch gesehen muss ich die Datei für meine Lösung ohnehin öffnen, einzig könnte ich das auch unsichtbar tun)

Wollte nur mal aufzeigen, das bei einer geöffneten Datei durchaus andere Darstellungen möglich sind.

Vielleicht darf ich zum Verständnis Folgendes sagen:
die Fragerin, hatte mich persönlich bereits vorher privat angeschrieben und ich hatte dazu ermunteret die Frage öffentlich im Forum zu stellen.

Insgesamt gehe ich ohnehin davon aus das die Fragerin eher (nur) allgemeine Vorstellungen hat und deshalb unterschiedliche Lösungsvorschläge schon deshalb nützlich sind, um der Fragerin überhaupt zu zeigen in welcher Spannbreite eine LÖsung möglich ist, damit sie sich dann entscheiden kann welche Lösung sie bevorzugt und die Antworter hier im Forum anschliessend die bevorzugte LÖsung noch 'feintunen' können.


Gruß
Stephan

[echo]

hallo Stephan
ich habe den Eindruck, hier zwischen deinem und meinem Beispiel irgend ein Bezug hergestellt wird, den ich nie beabsichtigt habe.
Wenn das von mir so rüber gekommen ist, als wollte ich deine Antwort kommentieren tut es mir sehr leid. Das war weder beabsichtigt noch so gemeint. Ehlich gesagt habe ich mir deine Antwort gar nicht angesehen weil meine Makro-Kenntnisse dürftig sind.

Ich bin "Markoneuling"!

Wollte aufzeigen, das es Möglichkeiten gibt auf Makros zu verzichten und alternativ die Infos in einer Spalte darzustellen. Das ist alles.
Gruß Holger

[Stephan]

Hallo Holger,

es ist wirklich alles in Ordnung für mich. Es ist sogar so das Du quasi genau das getan hast was ich gut und richtig finde, nämlich einen alternativen Lösungsvorschlag zu unterbreiten.

Wollte aufzeigen, das es Möglichkeiten gibt auf Makros zu verzichten und alternativ die Infos in einer Spalte darzustellen.

Und ich finde das gut so und bin weit davon entfernt irgendwie verrärgert zu sein - im Gegenteil: wenn ich jetzt lese was Du zitierst (="Ich bin "Markoneuling"!") so ist das für mich ein Argument das mir deutlich macht das meine Bezugnahme auf "aufploppen" keineswegs mehr Gewicht hat.



Gruß
Stephan

[Stephan]

Sind die Anhänge zur Veranschaulichung oder sind das Einstellungen zum Übernehmen in meine Datei?

Da die Original-Datei nicht identisch sein wird, z.B. die Tabelle nicht den gleichen Namen hat und dioe auszuwertenden Datums-Werte nicht an gleicher Stelle stehen, kann das nur eine Veranschaulichung sein auf deren Basis man es auf die Original-Datei übertragen muss.


Gruß
Stephan