OpenOffice.info

Hallo Chris

Du musst doch garnichts modifizieren, sondern nur mit den entsprechenden Parametern als Funktion aus einer Zelle aufrufen, zb. für April 2007 :

=WERT(MONTAGE(4;2007)

Gruß Karo

Hallo
Das Code Beispiel funktioniert, allerdings nur für November 2006.
Ich habe versucht es so zu modifizieren, das ich beliebig den Monat und das Jahr definieren kann und es mir für das entsprechende Jahr und den Monat jeweils die Montag ausgibt. Aber leider ohne Erfolg, ....
Kann mir nochmal jemand helfen.
Chris

 dim montag

dim montag as date 

Erstmal vielen Dank für deine Hilfe. Allerdings habe ich damit es funktioniert
noch eine Kleinigkeit ändern müßen.
[code] dim montag[/code]
habe ich als
[code]dim montag as date [/code]
definiert, damit ich das Datum und nicht irgendwelche Zahlen erhalte.
DANKE
Chris

function montage(monat,jahr)

dim korrekt
dim montag
dim msg as variant

korrekt = 8-weekday(dateserial(jahr,monat,1)-1,2)
montag = dateserial(jahr,monat,1)-1+korrekt
msg = montag

while month(montag+7) = monat
montag = montag +7
msg = msg &","&montag
wend 
'msgbox(msg)
montage = split(msg,",")
End function

Hallo Chris

Als Makrofunktion für Calc könnte das etwa so aussehen :
[code]function montage(monat,jahr)

dim korrekt
dim montag
dim msg as variant

korrekt = 8-weekday(dateserial(jahr,monat,1)-1,2)
montag = dateserial(jahr,monat,1)-1+korrekt
msg = montag

while month(montag+7) = monat
montag = montag +7
msg = msg &","&montag
wend
'msgbox(msg)
montage = split(msg,",")
End function[/code]

aus einer Calczelle mit :

=WERT(MONTAGE(monatszahl;4stell.Jahreszahl)
als Array-funktion mit [strg shift enter] abschliessen, und die Zellen als Datum formatieren.

Gruß Karo

Hallo
Ist es mit einem Makro möglich mir alle Monatage im November 2006 zu "errechnen"? Wie das ausgeben und weiterverarbeiten ist mir einigermaßen klar.
Mfg
Chris