Das Archiv des Excel-Forums

KW

    Bild

    Betrifft: KW
    von: golem

    Geschrieben am: 26.09.2003 15:12:16

    Hi, habe diesen Code(DAnke xXx):
    
    Function DINKW(Datum)
    Dim tmp
    tmp = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
    DINKW = ((Datum - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1
    End Function
    


    Wie gebe ich diesen code der die Kalenderwoche berechnet in einer bestimmten zelle aus? Habe Probleme mit Function()- Befehlen: ist das wie:
    
    Sub xy()   eine Prozedur oder eine Unterfkt von 
    
    Sub xy().
    Bitte um Rat
    
    Bild


    Betrifft: AW: KW
    von: WernerB.
    Geschrieben am: 26.09.2003 15:16:48

    Hallo Golem,

    die Funktion muss wie ein "normales" Makro in einem Standard-Modul abgelegt werden.

    Wenn in Zelle "A1" das betreffende Datum steht, dann in eine freie Zelle:
    =DINKW(A1)


    Viel Erfolg wünscht
    WernerB.

    P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


    Bild


    Betrifft: Danke
    von: Golem
    Geschrieben am: 26.09.2003 15:20:40

    manchmal ist es eben zu einfach..


    Bild


    Betrifft: kleines Problem..
    von: golem
    Geschrieben am: 26.09.2003 15:32:46

    DAnke Werner, eine Kleinigkeit gibt es noch; wie führe ich das Makro aus/rufe es auf?
    Gruß von goli aus dem zellen-land


    Bild


    Betrifft: warum neuer thread ? ot.
    von: th.heinrich
    Geschrieben am: 26.09.2003 15:37:01

    .


    Bild


    Betrifft: sorry hab meinen Fehler gefunden...
    von: golem
    Geschrieben am: 26.09.2003 15:41:49




    Bild


    Betrifft: woran lags denn ? ot
    von: th.heinrich
    Geschrieben am: 26.09.2003 18:30:19

    .


     Bild