OpenOffice.info

2014-03-30

1899-12-30

NN TT 

So 30

[quote="housefreund"]Es gab aber einen Fehler vorher:[/quote]
Den kann ich nicht entdecken, nicht unter Windows 7 und nicht unter Linux Mint, welches Betriebssystem hast Du.
[quote="housefreund"]Wenn ich im Kalender auf das internationale Datumsformat (yyyy-mm-dd) umsetze, wäre es dann einfacher? [/quote]
Es geht darum, dass in den Zellen die z.B. den Tag angeben, ein Datumswert steht, der durch entsprechende Formatierung wieder so aussieht wie bei DIr.
Beispiel:
Gib in eine noch nicht formatierte Zelle die Zahl 41728 ein, in eine Zelle daneben die Zahl 0.
Wenn du diese beiden Zellen nun mit z.B. yyyy-mm-dd formatierst, bekommst Du in Zelle 1
[code]2014-03-30[/code] angezeigt und in Zelle 2
[code]1899-12-30[/code] oder anders, der heutige Tag ist in der Zeitrechnung von Calc der 41728igste Tag seit dem 30. Dezember 1899
Morgen wäre 41729
So, und mit solchen Werten kannst Du nun die function arbeiten lassen.
Wenn Du dir die Formatierungsmöglichkeiten des Datumsformates genauer ansiehst, wirst du feststellen, dass du mit z.B. diesem Formatcode [code]NN TT [/code] [code]So 30[/code]angezeigt bekommst, wenn in der Zelle 41728 steht.
HTH R

[quote="F3K Total"]Hallo,
[quote="clag"]sollte dein Vorhaben mit SVERWEIS() oä lösbar sein. [/quote]
Das wäre sicherlich einfach, wenn es pro Tag nur einen Eintrag gäbe, bei mehreren Einträgen wird es schwieriger.
Darum habe ich eine function geschrieben.
Housefreund, in Deinem Kalender verwendest Du in den Tageszeilen Zahlen (1, 2, 3 ...) und Texte (Sa, So, Mo ...).[/quote]Wenn ich im Kalender auf [url=http://de.wikipedia.org/wiki/ISO_8601]das internationale Datumsformat (yyy-mm-dd)[/url] umsetze, wäre es dann einfacher?

Vielen Dank für das Beispiel, es hat geklappt, Felder sind schön grün geworden. :) Es gab aber einen Fehler vorher:
[attachment=0]2014-03-30-showJobs-Laufzeitfehler.png[/attachment]

function show_Jobs(day,adata) as String
    dim currentjobs(0) as string
    ncounter = 0
    for i = 1 to ubound (adata)
        if adata(i,2) = day then 'Datum in Spalte B gefunden, B entspricht Spalte 2
                 redim preserve currentjobs(ncounter)
                 currentjobs(ncounter) = "" & adata(i,1) & ": " & adata(i,3) 'Spalte A verbunden mit Doppelpunkt und Spalte C, A entspricht 1, C entspricht 3
                 ncounter = ncounter + 1
        endif
    next i
    show_Jobs = Join(currentjobs,"; ") 'alle gefundenen mit Semikolon verbinden
End function

Hallo,
[quote="clag"]sollte dein Vorhaben mit SVERWEIS() oä lösbar sein. [/quote]
Das wäre sicherlich einfach, wenn es pro Tag nur einen Eintrag gäbe, bei mehreren Einträgen wird es schwieriger.
Darum habe ich eine function geschrieben.
Housefreund, in Deinem Kalender verwendest Du in den Tageszeilen Zahlen (1, 2, 3 ...) und Texte (Sa, So, Mo ...).
Diese Daten lassen sich nur schwer zu Suche heranziehen.
Darum anbei ein Beispiel, mit einem vereinfachten Kalender in dem ich das tatsächliche Datum, nur etwas formatiert verwende.
Die Function [color=#0040FF][b]show_Jobs[/b][/color]
[code]function show_Jobs(day,adata) as String
dim currentjobs(0) as string
ncounter = 0
for i = 1 to ubound (adata)
if adata(i,2) = day then 'Datum in Spalte B gefunden, B entspricht Spalte 2
redim preserve currentjobs(ncounter)
currentjobs(ncounter) = "" & adata(i,1) & ": " & adata(i,3) 'Spalte A verbunden mit Doppelpunkt und Spalte C, A entspricht 1, C entspricht 3
ncounter = ncounter + 1
endif
next i
show_Jobs = Join(currentjobs,"; ") 'alle gefundenen mit Semikolon verbinden
End function[/code]
sucht im übergebenen Zellbereich nach dem Datum, fügt alle gefundenen Einträge zu einem String zusammen und trägt den gesamten String in die Zelle ein.

HTH
Gruß R

[quote="clag"]Hallo housefreund,

deine Beispieldatei ist nicht wirklich nützlich
du solltest dein Anliegen nochmal überdenken und genauer beschreiben.

eigentlich sollte dein Vorhaben mit SVERWEIS() oä lösbar sein. [/quote]
Hi clag!
Ich habe mal die Datei überarbeitet und für 2 existierende Daten (hier jetzt Plural von Datum) das gewünschte Ergebnis aufgezeigt.
[quote]
Nur wie willst in dem Kalender etwas erkennen wenn die Zellen gerade mal ein Wort fassen und du möchtest da mehrere Anmerkungen reinschreiben???[/quote]
Die Formatierung der Ansicht im Blatt 'Kalender' ist doch kein Ding. Stelle ich später selber ein bisschen die Spaltenbreite und Zeilenhöhe um. :) Mir geht es um den Transfer von Daten.
[attachment=0]Aufgaben-ooinfo-Nummeierung-Wunsch.ods[/attachment]

Hallo housefreund,

deine Beispieldatei ist nicht wirklich nützlich
du solltest dein Anliegen nochmal überdenken und genauer beschreiben.

eigentlich sollte dein Vorhaben mit SVERWEIS() oä lösbar sein.
Nur wie willst in dem Kalender etwas erkennen wenn die Zellen gerade mal ein Wort fassen und du möchtest da mehrere Anmerkungen reinschreiben???

[attachment=0]Aufgaben-ooinfo-Nummeierung.ods[/attachment]

Hallo,

könnte mir jemand ein Makro basteln, mit dem ich automatisch die Nummer und Beschreibung aus dem Blatt [i]Aufgaben[/i] in das Blatt [i]Kalender[/i] eingetragen bekomme, natürlich in die Zelle des entsprechenden Tags? In der Zelle sollte dann stehen:
[quote]Nummer: Beschreibung[/quote]
Falls eine weitere Aufgabe die gleiche Deadline hat, wäre ein Trennung via Semikolon und Sortierung via Nummer gut.

Ich weiß nicht, vielleicht ist das hier eine völlig unverschämte Anfrage, es ist nur so ich lerne nicht viel die pure Theorie durchzulesen und dann loslegen.
Bin eher jemand der sich an Beispielen ein gewisses Verständnis ableitet nur weiß ich nicht nach was für Beispielen ich hier suchen könnte. :/ Also: Hat jemand ein paar heiße Tipps welche Beispiele ich mir angucken könnte? :)